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v03-010 RRBOO031 Rowland R. Bradiey 15-Jul-1984 | 
Reinit dynamic string desc. prior to calling LIST_QUAL. This 
avoids trashing the output filename. 

v03-009 RRBO0030 Rowland R. Bradley 06-Jul-1984 


Fix concatenated file Lists. Handle Library files in 
searchlists(use current global context) and flag errors 
appropriately. Enable user to spec }ty abject and Listing 
in different places. Replace NAM block(it_ is needed by 
SUM$xxx routines). Fix problem with /UPDATES to properly 
handle an update file. 


v03-008 RRBOO25 Rowland R. Bradle 


Add support for proper handling of input Files 
using LIBSFIND_FILE. Add appropriate comments and 
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~3ep= 188s Of iabiss Emachosmelecrtopnor;1 = ae 


clean up existing comments. ree LIBSF IND gf LE errors 
correct 1; Reorganize ns to more efficiently handle 
input tiles. Handle pos Tonal qualifiers on Libraries. 


v03-007 RRBOO14 Rowland R. Bradley 27-F eb-1984 
Bug fix which handles positional /LIST qualifiers on Libraries 
as a global /LIST qualifier. 


V03-006 RRBOO11 Rowland R. Bradley 
Modify to handle locally present LIST & / 
correctly (added GET eof st ST, GET_LOC_OBJE 
T and GET_OBJECTY. Fix Length of f 

_to Randle long ietereces me INP_FILE. 


v03-005 TROO30 Mike Rhodes 28-Mar-1983 
Modify nae to handle GLOBAL vs. LOCAL Ly PRESENT quel if iers. 


V03-004 MTROO29 Mike Rhodes 18-Mar-1983 
Check for explicit “ey of qualifiers, before performing 
the negation actions (due to new CLI interface). 


v03-003 MTROO26 Mike Rhodes 24-Feb-1983 
Remember the length of the Last input file opened with its 
expanded string in MACSINP_NAM_BUF. The cel holding the 
Length is MACS$GB_INPNAMLEN. 


v03-002 MTROO22 Mike Rhodes 01-Feb-1983 
Convert to new CLI inteface. 


v03-001 hodes 07-Jul-1982 
rT the” handling of shee CENABLES /DISABLE /SHOW aan /NOSHOW 
qualifiers, such that they ety evereree their “OsLisk has” 
assembler directives actions. new flag MACSGL_DSLISF has 
been employed to facilitate this manipulation. 
Affected modules are SHOW_ENAB and DBG_NEXT_OPT. 


v03-000 MTROO10 Mike Rhodes 15-Mar-1982 
Remove S$SCLIDEFQUALMACR macro, since the symbols which it 
defined are globally available during the build. 


v02-014 MTROOO2 Mike Rhodes 01-Dec-1981 
Modify the /DEBUG action routine to allow the SYMBOLS and 
TRACEBACK qualifier values to coexist in a qualifier List 
without negating one another. 


v02-013 MTROOO1 Mike Rhodes 09-Nov-1981 
Add a new action routine (called by the CLI parsing routines) 
to process the /CNOJDEBUG qualifier and its parameters. The 
processi ng consists of setting/clearing bits in the options 

vector MACSGL_ENLISF. 


v02-012 BLS0057 Benn Schreiber 13-Jun-1981 
Correct reference to SUMSOPEN to use General addressing mode 
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CT, and modified 
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900 114 .SBTTL DECLARATIONS 
0 115 ; 
90 116 ; INCLUDE FILES: 
ae 
0000 118 ; 
000 120 ; MACROS: 
0000 121; 
0000 «(1 é 
3909 1 SMAC_MLFDEF 3; Define MLF offsets 
91 124 SMAC~CTLFLGDEF SDEFINE VAX MACRO CONTROL FLAGS 
O17? 125 SMAC~SYMBLKDEF ‘DEFINE MAX LENGTH OF SYMBOL NAME 
000 126 SMAC~ CRFLAGDEF :DEFINE CREF FLAG BITS 
0000 ee SCLIBEF CLI DEFINITIONS 
0000 128 SDSCDEF :DESCRIPTOR DEFINITIONS 
0000 129 $F ABDEF [DEFINE FAB OFFSETS 
0000 130 SNAMDEF :DEFINE NAM BLOCK OFFSETS 
0000 131 | 
0000 13¢ : 
0000 133 ; EQUATED SYMBOLS: 
9000 134; 
0000 135 
0000 136 _VIELD MAC,1,<- 
0000 137 LIST,- SLIST FILE PRESENT FLAG 
0000 138 OBJECT,- OBJECT FILE PRESENT FLAG 
0000 139 INPFIL,- : INPUT FILE IS PRESENT 
0000 140 CROSSREF ,- :CROSS REFERENCE REQUESTED 
0000 141 <LIBRARY,,M>, - sInput file is a library 
0000 146 SUPDATE, A>, - sInput file has "santas 
0000 «14 | 
0000 144 
0000 145; | 
0000 146 ; OWN STORAGE: 
0000 147; 
00000009 148 .PSECT MACSRW_DATA,NOEXE,RD,WRT | 
00000004 0000 150 UPDATE_LIST: BLKL 1 ; Update List address. 
00000000 0004 151 LOC_LST_FLAG: LONG QO 3 Positional Flags. to 
00000000 0008 13¢ LOC"OBJ"FLAG: LONG 0 : used to save the 
o00c 38615 : = positional /NOLIST, 
000C 154 :  JLIST, /NOOBJ, or /OBJ 
000c 3=:«155 : status. 
000c 156 | 
00000009 137 -PSECT MACS$RO_DATA,NOEXE ,NOWRT,GBL,LONG 
00000000 9000 199 RESULT: . LONG sADDRESS OF RESULT DESC 
52 41 4D 2€ 90" 0004 161 INP_DEFEXT: «ASCIC /.MAR/ SDEFAULT FILE SPEC FOR INPUT 
0009 16¢ 2 
09 165 ; 
009 166 : CLI PARSING INFORMATION | 
45 46 49 4C 24 00000011'010E0000" 0009 166 COMMAND_LINE: .ASCID /SLINE/ | 
SF 53 53 4F 5¢ 43 0000 016" 010E000 * 0016 167 CROSS: -ASCID /CROSS_REFERENCE/ 
45 43 4E 45 52 45 46 45 5 034 
47 55 42 45 44 00000035'010E0000" D 168 DEBUG: .ASCID /DEBUG/ 
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4 
DECLARATIONS 5=SEP=1984 48:25 (CMACRO.SRCIJGETCMD.MAR; 1 (2) 
4C 42 41 53 49 44 00000042" ioanet 1 tt 169 DISABLE: »ASCID /DISABLE/ 
45 4C $¢ 41 4E r* 00000051'010E0000' 0049 Q ENABLE: -ASCID /ENABLE/ 
4C 49 46 OO000005F'010E0000" 0057 171 FILE: eASCID /FILE/ 
52 41 52 42 49 te 00000068 '010E0 5 : $83 172 LIBRARY : -ASCID /LIBRARY/ 
4E 49 54 53 49 4C CORDS Te SISE CSTE" 143 173 LISTING: eASCID /LISTING/ 
57 4F 48 53 GF 4E 9690097" 39 44 Boge 174 NOSHOW: -ASCID /NOSHOW/ 
54 43 45 4A rt} 4f 097°O10E0000° OO8F 175 OBJECT: ~ASCID /OBJECT/ 
57 SF 48 53 000000A5'010E0000" 009D 176 SHOW: «ASCID = /SHOW/ 
45 54 41 44 50 55 00000081'010E0000' Bead oe UPDATE: -ASCID = /UPDATE/ 
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| 

~SBTTL PARSE COMMAND LINE | 

Functional Description: 


oO 
tes) 
~N 


This routine obtains the command Line and the associated input, 
ee7eet ane Listing file(s) information supplied by call backs 
o the ° 


Implicit Inputs: 
Global Data (et.al.) 
Implicit Outputs: 
The input file(s) are validated and set up in the input queue 
MACSGL_INPQUE, the ‘parery file(s) have been initialized, all 
of the qualifier(s) have been parsed, the update file(s) have 
been set up, and the output and Listing file(s) have been created 
(if they were requested). 
-PSECT MACSRO_CODE_P35,NOWRT,GBL,LONG 
MACSGETCMD: : 
PUSH #*M<R7,R8B,RI,R10,R11> 3; SAVE REGIS 
PUSHAB L*“MAC$GQ_RNT_CMD 3; STACK TIMING BLOCK ADDRESS 
CALLS #1,G*MACSTIMER_ON ; BEGIN TIMING COMMAND PROCESSING 
: Create a dynamic string descriptor for parsing the command Line. 
MOVAB <-8(SP), SP Create a dynamic string descriptor 
CLRQ (SP) which will be used for paren the 


MOVB #0SCSK_CLASS_D,- ; command Line. It will be passed to 
DSC$B_CLASS TSP) 3; the various process (ne routines. 


De Se Oe Oe Be Se Oe Oe Oe Oe Oe Se Se Se Se Se Se Se Se 
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0000 


Of80 8F BB TERS 
QQOOOOOO'EF OF 
Q0000000'GF 01 FB 


A 
23 68 23 = &4 
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BBSC #FLGSU_MOREINP,(R11),10$; BR IF THIS IS NOT THE FIRST CALL 
$ : Obtain a local copy of the command Line. 
5E OD 8° USH SP ; Address of dynamic string descriptor. 
OO0000009"EF 9F 9 PUSHAB COMMAND _LINE ; ‘SLINE’ CLI keyword to get command Line. 
00000000'GF 02 FB 0 CALLS #2, G*CCISGET_VALUE ; Get the command Line locally. 
00000000'GF  6E  3¢ 1 MOVZWL (SP), G°MACSGC_CMDLEN : Save the Length of the command Line 
04 AE 00 § OVL DSCSA_POINTER TSP),- ; and its address for later Toh han 
00000000 ' GF ; G*MAC CMDLIN 3 on the LISTING and/or the TERMINAL. 
04 AE D4 4 CLRL DSCSA_POINTER (SP) ; Reset address for next segment. 
6E— B84 be 2 CLRW DSCSW_LENGTH (SP) ; Reset length for next segment. 
4 7; 
4 8 ; Process the INPUT file(s) specification(s) (plus: /CROSS_REFERENCE ) 
04 9; ( /DEBUG /DISABLE ) 
' 5E Dd 004 0 10$:  PUSHL SP : ( /ENABLE /LIBRARY  ) | 
OOOOO3SSE'EF 01 FB 004 1 CALLS #1, GET_INPUT 3 ( /LISTING /OBJECT ) 
04 ¢ 5 ( /SHOW /NOSHOW ) 
04 : : ( /UPDATE ) | 
04 3 : TERMINATE PARSE | 


MACSGETCMD GET C ULE 16-SEP-1984 
yO .600 PARSE ND LINE -SEP=1984 t eile 
50 00000000'GF 9 MOVAB GeMACSG INPQUE ,RO ; 
i ? AO of CMPL ROM ; 
12 BNE opeg puteurs ; 
50 Q0000000'GF  9E MOVAB G*MACSMSG_NO_FILE,RO : 
00000000'GF gO F8 CALLS #0,G*MACSERR-TEXT ; 
FF97" 31 BRW MACSLAST_CHANCE ; 


OPEN. OUTPUTS: 
MOVAB G*MACSGL_CTLMSK,R10 : 
BBC #MAC_V_OBJECT, thi 10),20$ : 


SCREATE FABs G*MACSOBJECT FAB,- ; 
ERR=G*MACSERR_OPR_OU Out 


RO,4 : 
SCONNECT RAB=G“MACSOBJECT -RAB,= ; 
eLac EPR=G*MACSERR_OPN_OUT 


R 
BBCS #FLG$V_OBJXST, 
CoMACSCL “FLAGS, 20$ 


20S: BBC #MAC_V List (nt0), 30$_—; 
SCREATE FAB= ¢* MACSLIST_FAB,- 
ERR® Co MACSERR _OPN_ duT 


5A Q0000000'GF 9 
34 6A 02 €1 


7350 €9 


5D 50 =E9 
1 E3 

GO 00000000 ' GF 
34 6A O01 €1 


OOAC 

38 50 46€9 O0BF ; 
00C2 SCONNECT. RAB= G*MACSLIST_RAB,- ; 
00C2 ERR=G*MACSERR_OPN_OUT 


25 50 €9 00D5 BLBC ~—_—«RO, ; 
09 €3 00D8 BBCS  #FLG$V_LSTXST,- ; 
00 00000000 ' GF SODA G*MACSGL_ FLAGS, 30$ 
04 6A 04 €1 OE 30$: BBC WMAC V_CROSSREF , (R10) ,35$ 
00 68 1E €2 0 Es BBSS PFLGSV~ CRF,(R11),35$ 
00000000'EF 9F OOEB 35$: PUSHAB L“MAC$GQ_RNT_CMD : 
00000000'GF 01 FB 0 EE CALLS ra »G°MACSTIMER_OFF : 
SE 08 cO O00F5 ADDL #8, SP 
OF80 8F BA O0FB POPR  #*M<R7,R8,R9,R10,R11> 
a 
0 FD : COULD NOT OPEN A FILE 
0 FD 40s: BRW MACSLAST_CHANCE : 
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POINT TO THE INPUT QUEUE 
WERE THERE ar) INPUT FILES? 
IF NEQ YES--GO AHEAD 
NO=--GET na teas _foeneee 
REPORT THE ERR 

AND GO DIE 


: OPEN OBJECT AND LISTING FILES IF REQUESTED 


; POINT TO CONTROL MASK 


BRANCH IF NO OBJECT FILE 
CREATE THE OBJECT FILE 


; BRANCH IF OPEN ERR 


CONNECT THE RECORD. STREAM 


BRANCH IF CONNECT ERROR 
FLAG OBJECT FILE OPEN 


BRANCH IF NOL 


ISTING FILE 
CREATE THE LISTING FILE 


; BRANCH IF OPEN ERROR 


CONNECT THE RECORD STREAM 
BRANCH IF CONNECT ERROR 

FLAG THERE IS A LISTING FILE 

; BRANCH IF NOT CROSS-REFERENCE 
YES--SET IN FLAGS WORD 


STACK TIMING BLOCK ADDRESS 
STOP TIMING COMMAND PROCESSING 


3; Clean we. the stack. 
; RESTORE REGISTERS 


LAST CHANCE HANDLER 


hy | 
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Functional Description: 
Call the CLI to obtain the GLOBAL object file specification. 
Inputs: 
4(AP) adr address of a dynamic string descript | 
(ultimately either a null string or the globally 
specified value) 
Implicit Inputs: 
LOC_OBJ_FLAG specifies if /obj is locally present. 
Implicit Outputs: 


If an object file specification was supplied, the address me. jeress 
of the output file specification is set into the output file FAB. 


Side Effects: 


| 
1) The address field of the ean descriptor is cleared 
(to force a new buffer to be allocated on the next invocation 
of the CLI). This preserves the buffer address and its contents 
(the OBJECT file specification). 

2) /LIST locally specitied overrides global List specification. 
| 
| 
| 
| 
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D MOD 
b 
3 
3 
3 
3 
3 
3 
3 
3 
; 
3 
; 
3 
3 
3 
3 
! 


0000 -ENTRY GET_OBJECT,*M<> 3; Get the object file specification. 
QOOO00SF "EF OF PUSHAB T : 
00000000'GF 01 FB CALLS #1, G*CLISPRESENT : ues /OBJECT specified? 
45 50 €9 BLBC RO, 20$ 3; No, Return. 
00000000'8F 50 O01 CMPL RO, #CLIS_LOCPRES ; If locally present then fall thru 
3 13 BEQL 20$ : and handle in procedure GET “LOC OBJ. 
00000000'8F QOO000008'EF 01 CMPL LOC_OBJ ty ; /NOOBJ bate /05s°" overrides 
6 #CLT$_LOCNE 3 glob 
2F «13 6 BEQL 208 : 
02 50 #F0 8 INSV RO,#MAC_V_OBJECT,- : ein /OBJECT flag.) 
00000000'GF 01 8 4 “G*RALSCL CTLMSK 3 
1D bt FO 1 INSV Bey ot 
00000004 ‘EF 1 4 4 MAC OBIECT. “FAB+FABSL FOP 
A ; Set OFP bit - Use only portions 
A 3 of related filename. 
DD A PUSHL  4(AP) ; Push the descriptor address. 
0000008F EF OF PUSHAB OBJECT : Push ‘OBJECT’ qualifier descriptor. 
00000000 ' GF a 36 FB CALLS #2, Sage tek We ; Get rd file spec ificatt on. 
E9 A LBC R 0s 3 ...exit... use first input file 
DD D PUSHL  4(AP) : Push the string d dese address. 
00000737'EF * Of F 9 CALLS #1, OBJ_FILE : Set up the OBJECT file 
50 O04 AC OD 208: MOVL 4(AP), RO : Get the address of yi sectiiobel 
D4 B CLRL DSCSA_POINTER (RO) 3; and reset it to force a new buffer. 
B4 3 CLRW DSC$W"LENGTH (RO) ; Also reset Length for next segment. 
04 6 RET ; Return to continue the parse. 
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00000000 ' GF 


00000000 * 8F 
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00000000 ' GF 
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00000000"°8F 00000004'EF 
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dD «0 
00000004"EF 0 


00000 
00000000'GF 0 


00000715°EF 01 
50 04 AC 
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Functional Description: 


Call the CLI to obtain the gases List file specification 
and all the associated Listing control qualifiers. 


Inputs: 

4(AP) = adr address of a dynamic string descriptor 
Implicit Inputs: 

LOC_LST_FLAG specifies if /List is locally present. 
Implicit Outputs: 


If /LISTING was supplied, the /CROSS_REFERENCE and /SHOW options 
are selected either explicitly or by default action. 


Side Effects: 


1) The address field of the dynamic descriptor is cleared. This 
preserves the buffer address and its contents (the LISTING file 
specification). PR 

2) If a LISTING is specified both locally and globally then thé 
local Listing is produced. 


eENTRY GET_LISTING, “M<> ; Get the Listing file specification. 
PUSHAB LISTING : ; 
CALLS #1, G*CLISPRESENT : See if /LISTING was specified. 
BLBC RO,20$ ; Then ...Return. 
CMPL RO, #CLIS_LOCPRES ; If locally present then fall thru 
BEaL ~=s«108 : and handle GLOBAL List qualifiers 
CMPL LOC_LST_FLAG, - ; /NOLIST positionally overrides 
#CLT$_LOCNEG : global /LIST 
BEQL 20$ 3 ee. Return 
INSV RO,#MAC_V_LIST,- ; (Toggle /LISTING flag.) 
#1,G*MACSGL_CTLMSK : 
INSV #1, #F ABSV P,- 
#1, MACSOBJECT_FAB+F ABSL_FOP ; 
; Set OFP bit = Use only portions 
3 of related filename. 
PUSHL 4(AP) ; Push the descriptor address. | 
PUSHAB LISTING ; Push ‘LISTING’ qualifier descriptor. 
CALLS #2, G*CLISGET_VALUE ; Get the file specification 
3 or null syring. 
BLBC RO, 5$ 3 «exit... use first input file 
PUSHL 4(AP) ; Push the default file specification 
3 as the string desc address. 
CALLS #1, LIST_FILE ; Set up the LISTING file FAB. 
MOVL ; Get the address of the descriptor 


4(AP), RO 
CLRL DSCSA_POINTER (RO) and reset it to force a new buffer. 


MACSGETCMD GET COMMAND MODULE =SEP=1984 t Se]? +08 VAX/VMS Macro v04-00 Page 9 | 
v04-000 GET_LISTING Obtain the Listing file nee “SEP-1984 CMACRO.SRCJGETCMD.MAR; 1 (5) 
60 B84 O1BF 400 CLRW DSC$W_LENGTH (RO) ; Also reset length for next segment. 
04 AC DD O1C1 401 PUSHL 4(AP)~ : 
Q00000304'EF 01 FB pits Pt CALLS #1, LIST_QUALS 3; get the rest of the qualifiers. 
50 04 AC 00 O1CB 404 10$: MOVL 4(AP), RO ; Get the address of the descriptor 
04 AO D4 OCF 405 CLRL DSCSA_ POINT en (RO) ; and reset it to force a new buffer. 
60 B4 0102 406 CLRW DSC$W_LENGTH (RO) ; Also reset length for next segment. 
04 BiB re 44 20$ RET 


| 
| 
| 
| 
| 
| 
| 
| 
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-SBTTL GET_LOC_OBJECT Obtain the positional object file spec (et. al.) 


Functional Description: 


This routine obtains the positional object file specification and 
and sets up the OFP bit in FAB FOP for object file related name. 


Inputs: 


4(AP) = adr address of a dynamic string descriptor (if object 
file specified locally) 


Implicit Outputs: 


LOC_OBJ_FLAG Flag to hold status of CLISPRESENT when qualifier 
is locally present 


Side Effects: 


| 
1) The address field of the dynamic descriptor is cleared. This 
preserves the buffer address and its contents (the LISTING file 
specification). i 
2) If a OBJECT file is marked locally as /NOOBJECT then the object 
flag is reset here. 
| 
| 
} 
| 
| 
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wo 
fe we ee we ee ew oe wooo elolololeleleleloleleleleolololololololelolololelololelololololololelel ale ol ela a] 
DB a DON MOA OT ADA FD ADS LD DS TTT 


PROPIPIPOMPOPONPINIPININPIPIPIPINININOININY 2 2 = tt 


0054 ENTRY GET_LOC_OBJECT, “M<R2,R4,R6> 
OOOOOOSF EF oF PUSHAB OBJECT : 
QOO00000'GF 01 CALLS #1, G*CLISPRESENT ; See if /OBJECT was specified. 
00000000 ° 8F 2 } yas RO, #CLIS_LOCPRES ; locally present 
00000000'8F 50 O01 a CMPL RO, #CLIS_LOCNEG ; locally negated 
63 12 44. BNEQ  20$ : ...exite.. 
50 QOQ000008"EF 00 445 MOVL LOC_OBJ_FLAG, RO : Check for prev file's 
00000000°8F 50 01 446 CMPL RO, #CLT$_LOCPRES : positional /OBJ qual and 
447 : avoid clearing global flag 
53 13 273 BEQL 20$ e wweGtitaas 
00000008"EF 50 £4»00 450 MOVL RO, LOC_OBJ_FLAG ; Save locally negative flag for later 
00 = =FO 451 INSV #0,#MAC-V_OBJECT,- ; Clear object flag bit 
00000000'GF 01 $3¢ #1 ,G*MATSGL_CTLMSK 3 
41 11 433 BRB 20$  sxctulSces 
O0000008'"EF 50 00 455 5$: MOVL RO, LOC_OBJ_FLAG : Indicate that local obje specified 
02 50 £0 456 INSV RO,#MAC-V_OBJECT. ; (Toggle /OBJECT flag to ‘'ON’’.) 
00000000 ' GF 01 457 #1,G*MACSGL_CTLMSK : 
D «(01 FO 458 INSV #1, #FABSV_OFP,- 
00000004 ‘EF 01 459 #1 ,MACSOBJECT_FAB+F ABSL_FOP ; 
$89 ; Set OFP bit - Use related filename. 
04 AC OD 46¢ PUSHL 4(AP) : 
000000 |: oF 46 PUSHAB Oger! 3 . ge 
00000000 ' GF 2 «FB re C3 CALLS #2, G*CLISGET_VALUE 3 Get the tite specification or null 
; string. 
09 50 £8 466 BLBS RO, 158 : Dont clear the OFP 


ey 
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v04- GET_LOC_OBJECT Obtain the positional obj 5=-SEP-1984 01:48: CMACRO.SRCJGETCMD.MAR; 1 (6) 
1D 0 FO 44 467 INSV #0,#FABSV_OFP,- 
00000004 ‘EF 1 47 468 #1 ,MACSOBJECT_FAB+F ABSL_FOP 
4D 469 3; Set OFP bit - Use related filename. 
04 AC DD 0240 470 15$ PUSHL 4(AP) 3 
00000737'EF 01 FB OO 29 471 CALLS #1, OBJ_FILE 3; Set up the OBJ file FAB specified. 
00 «(11 0 5 426 BRB 20$ ee Shee 
59s «47 : 
8 59s «474 3 
50 04 AC 00 59 475 20$ MOVL 4(AP), RO ; Get the address of the descriptor 
04 AO D4 0250 278 CLRL DSCSA_POINTER (RO) ; and reset it to force a new buffer. 
40 84 026 47 CLRW DSCSW_LENGTH (RO) ; Also reset length for next segment. 
«Bee em 
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00000000 ° GF 
00000000 ° 8F 
00000000 ' 8F 


50 ~=—00000004" 
00000000 * 8F 
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MACRO.SRCJGETCMD.MAR; 1 
-SBTTL GET_LOC_LIST Obtain the positional Listing file spec (et. al.) 


Functional Description: 


This routine obtains the positional ayat tae file specification and 
sets up the related name for the Listing file, and gets any qualifiers 
specified with the local Listing. 


Inputs: 


4(AP) adr address of a dyn 


5 amic string descriptor (used if 
specific list fi 


le is specified locally) 
Implicit Outputs: 


LOC_LST_FLAG Flag to hold status of CLISPRESENT when qualifier 
is locally present 


If /LISTING was supplied, the /CROSS_REFERENCE and /SHOW options 
are selected either explicitly or by default action. 


Side Effects: 


1) The address field of the dynamic descriptor is cleared. This 
preserves the buffer address and its contents (the LISTING 
file specification). : 

2) If a LISTING file is marked locally as /NOLIST then the Listing 
flag is reset here. 


ENTRY GET LOC_LIST, “M<R2,R4,R6> 
TING ; 


- 
mn 


L ; 
CALLS #1, G*CLISPRESENT ; See if /LISTING was specified. 
Hapa RO. #CLIS$_LOCPRES ; locally present 
CMPL RO, #CLIS_LOCNEG : locally negated 
BNEQ 20$ ° eee x eee 
3$: MOVL LOC_LST_FLAG, RO : Check for prev file's 
CMPL RO, #CLTS$_LOCPRES ; positional /LIST qual and 
: _avoid clearing global flag 
BEQL 20$ e ee. 4 eee 
4$: MOVL RO, LOC_LST_FLAG : Save hog ot by negative flag for later 
INSV #0,#MAC-V_LTST,- : Clear LIST flag bit 
#1 ,.G*MACSGL_CTLMSK : 
BRB 20$ » weeOB thai 
5$: MOVL RO, LOC_LST_FLA > Indicate that local list specified 
INSV #1, #FABSV_OFP,- 
#1,MACSLIST_FAB+FABSL_FOP 
; Set OFP bit - Use related filename. 
INSV RO,#MAC_V_LIST,= (Toggle /LIST flag to ‘‘ON’’.) 


#1,G*°MACSGL_CTLMSK 


PUSHL 4(AP) 
PUSHAB LISTING 


MACSGETCMD GET COMMAND MOD 16-SEP-1984 217: AX/VMS Macro V04-00 Page 
104-600 GET_LOC_LIST Sbeoin the positional Listi 8 Seen one BF Bis EMACRO SRE GETCMD.MAR; 1 ° 
00000000'GF 02 FB ce 38 CALLS #2, G*CLISGET_VALUE ; Get the tite specification or null 
3 string. 
09 50 EB OSCF $40 BLBS RO, 158 : Dont clear the OFP 
1D OO FO be 4} INSV #0, #F ABSV ore 7 
00000004 "EF 01 D 1 #1 ,MACSLIST_F AB+ FABSL_FOP 
DB 4 ; Set OFP bit = Use related filename. 
04 AC OD DB «544 15$ PUSHL  4(AP) ; Push the etring descriptor address. 
Q00000715°EF 01 FB 8 DE 545 CALLS #1, LIST_FILE ; Set up the LIST file FAB specified. 
00 11 0 ES 246 BRB 17§ ; list_quals ...exit... 
50 04 AC 00 E7 548 17$: MOVL 4(AP), RO ; Get the address of the descriptor 
04 AO D4 EB 549 CLRL DSCSA_POINTER (RO) ; and reset it to force a new buffer. 
60 B4 ‘ 200 CLRW DSCSW_LENGTH (RO) ; Also reset Length for next segment. 
04 AC OD Q Fe 551 PUSHL 4(AP) : 
00000304'EF 01 FB $ 226 CALLS #1, LIST_QUALS ; get the rest of the qualifiers. 
50 04 AC 00 gsr A 554 208 MOVL 4(AP), RO ; Get the address of the descriptor 
04 AO D4 $55 555 CLRL DSCSA_POINTER (RO) : and reset it to force a new buffer. 
60 B4& 0301 556 CLRW DSC$W_LENGTH (RO) ; Also reset Length for next segment. 
mB ee 
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MACSGETCMD GET COMMAND MODULE 16-SEP-1984 217: AX/VMS Macro v04-00 Page 14 
v04-000 LIST_QUALS obtain the Listing file assoc ~$Fbr 384 BF idgios EMACRO. SRCIGETCMD MAR: 1 ’ (8) 
: : i sae «-SBTTL LIST_QUALS Obtain the Listing file associated qualifiers(et. al.) 
4 562: 
8 ri é§ ; Functional Description: 
0304 568 : This routine processes all the associated Listing control qualifiers. 
0 04 268 : Inputs: 
0304 8e9 : 4(AP) ad dd f a dynamic string descript 
; adr address of a dynamic string descriptor 
O304 890 | . ° ? | 
Bene 27] ; Implicit Outputs: 
0304 if ; 
0304 573; If /LISTING was supplied, the /CROSS_REFERENCE and /SHOW options 
B30 He 3 are selected either explicitly or by default action. | 
0304 576 : Side Effects: | 
0304 577; 
0304 578; None 
0304 579 ; 
0304 580 ;-- 
0000 0304 $81 -ENTRY LIST_QUALS, “M<> ; Get the Listing file specification 
00000016'EF SF 0306 286 PUSHAB ; Push the CROSS_REFERENCE desc. 
00000000 ' GF 01 FB bay$ 58 CALLS #1, G*CLISPRESENT ; Was /CROSS_REFERENCE specified? 
13 50 €9 031 584 BLBC RO, 15$ ; No, skip ahead. 
04 50 FO 0316 585 INSV RO,#MAC_V_CROSSREF ,- : Toggle /CROSS_REFERENCE flag. 
00000000'GF 01 0319 586 #1,G*MACSGL_CTLMSK : 
04 AC DD O31F 587 PUSHL 4(AP : Yes, push the address of string descriptor 
00000776"EF 01 FB 835§ 288 CALLS #1, MACR_CROS ; and process the keywords seperately. 
QOOOOO9D'EF 9F 0329 590 15$ PUSHAB SHOW ; Push the SHOW yl ett ter descriptor. 
00000000 ' GF 01 FB Oa¢e 591 CALLS #1, G*CLISPRESENT ; Was /SHOW specified? , 
OA 50 £€9 0336 238 BLBC RO, 20% ; No, go process the /NOSHOW qualifier. 
04 AC DD 0339 59 PUSHL 4(AP) ; Address of otreng descriptor to use... 
QOOOO7ES"EF 01 FB ba75 age CALLS #1, MACR_SHOW ; Yes, so process the keywords seprately | 
QO000081'EF 9F 0343 596 208: PUSHAB NOSHOW ; Push the NOSHOW qyisitier descriptor. 
00000000'GF 01 FB 0349 597 CALLS #1, G*CLISPRESENT ; Was /NOSHOW specified? 
0A 50 €9 Q350 598 BLBC RO, 30$ : No, return to complete parse. 
04 AC DD 0353 599 PUSHL 4(AP) ; Address of pat descriptor to use... 
OOOOO7F7"EF 01 FB bae0 $00 CALLS #1, MACR_NOSH ; Yes, parse /NOSHOW's keywords... 
04 035D 602 308: RET : | 


MAC 


5 Orr 


5E 0D 
Q0000057"EF 9F 
00000000'°GF 02 4 


0 50 
00000000 ' GF 9 
08 AE 0 


Push the ‘FILE’ parameter descriptor. 
Get the input file specification. 
Toggle INPUT file parsed flag. 


B FILE 
CALLS te. G*CLISGET_VALUE 
INSV RC.#MAC_V_INPFIL,- 

#1,G*MACSGL_CTLMSK 
MOVL RO, 8(SP) 


Save status... ’ 
check later for more files. 
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MACSGETCMD GET COMMAND MODULE 16-SEP-1984 02:17:0 VAX/VMS Macro v04-00 Page 
v04-000 GET_INPUT Obtain the input file specific ~3Fb = 984 eR CMACRO.SRCJGETCMD.MAR; 1 . 
8 2E 60 Be -SBTTL GET_INPUT Obtain the input file specification(s) 
5E one ; 
2E ait 3; Functional Description: 
5E 609; The input file specification is obtained and all associated qualifiers 
QO35E 610; are processed. 
fae 
3; Inputs: 
O35E 88 ; 
O32e ee ; 4(AP) = adr address of a dynamic string descriptor 
326 616 ; Implicit Inputs: ; 
O32e eit : The default qualifiers defined in the .CLD are inputs to this routine. 
O35E 619 ; Implicit Outputs: 
035E 6¢0 ; : , 
QO35E 621; The input file epost Treeeiy is parsed and processed, and the qualifiers 
O32e ose ; (/DEBUG, /DISABLE, /ENABLE) options have been set. 
O35E 634 ; Side Effects: 
O35E 625; 
O35E 626; Allocation of STACK LOCAL Storage is used as follows: 
O35E 627; 
O3s— 699 | Yelassitype! length ? O(SP) 
: iclassitype: length : 
035E $66 : ebm ¢ etl, nef 
O35E 631 ; {| string address ; 4(SP) 
O35E O36 3 towne nen seeseseeee= 
O35E 633; : saved status | 8(SP) 
O35E 6346 5 Heme mennn 
O35E 635; 
O35E 630 ;-- 
0000 Oa7e ost ENTRY GET_INPUT, “M<> ; Get the input file specification 
0360 639 ; Initialization... 
0360 640 ; 
5E FS AE 9E 0360 641 MOVAB <-12(SP), SP ; Allocate some LOCAL storage. 
6—E 7C 0364 26 CLRQ (SP) : Initialize a dynamic string 
02 90 0366 64 MOVB #DSCS$K_CLASS_D,- ; descriptor. The remaining longword 
03 AE 0368 644 DSC$B_CLASS TSP) : is used to hold a ‘saved status’. 
50 D4 O36A 645 CLRL RO : ; 
00000004'"EF 50 00 6366 646 MOVL RO, LOC_LST_FLAG ; Initialize positional theps ‘ 
00000008 ‘EF 50 00 638 647 MOVL RO, LOC_OBJ FLAG 5 for every concat file List. 
00000000 * GF D4 7A «648 108: CLRL G*MACSGC_DIRFLG ; Reset the LIBRARY “ree and 
00000000 "EF D4 0380 649 CLRL UPDATE_LIST ; the UPDATE flag (MUTEX) 
00000000°GF 00000060 8F CA 0386 650 BICL2 #<MAC_A_LIBRARY!MAC_M_UPDATE>, - 
0391 «651 G*MACSGC_CTLMSK ; /LIBRARY and /UPDATE are mutually 
0391 63¢ exclusive on a SINGLE file spec! 
0391 65 (Reset qualifier bits) 
91 654 Push address of descriptor 
$03 55 
3n0 689 
3 58 
A9 59 
3AD 0 


0000004 
00000000 ' GF 
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0 
0 
00000812'EF 
0000003A' 
09000000 ° GF 
OA 
04 
00000820"EF 0 
0000002D" 
00000000’ GF 
000008CB EF 
00000000" 8F 


0000086F "EF 
000000 
00000000 ' GF 

00000000 ' GF 
OA 


04 
OOOOO9F4"EF 0 


00000063'EF 
00000000 ' GF 1 


50 
00000000 ' GF of 


00000000'GF 01 00 


00000000 * 8F 30 
08 00000008’ EF 
04 AC 

90 CF 01 

08 00000004 'EF 
04 AC 

FCE2 CF 01 

5E 

QOO004BC*EF 01 
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DULE . Mgr se=12 
Obtain the input file specific 5-SEP-1984 


BLBS RO, 20% 
BRW 508 
file qualifier processing. 
PUSHAB ENABLE 
eh LLS 4 $s CLISPRESENT 
kp) 
CALLS #1, MACR_ENAB 
PUSHAB DISABLE 
CALLS #1, G*CLISPRESENT 
BLBC RO, 40$ 
4(AP) 
CALLS #1, MACR_DISA 


PUSHAB DEBUG 
CALLS #1, G*CLISPRESENT 
B RO, 50$ 


4 (AP) 
CALLS #1, MACR_DEBU 


CMPL RO, #CLIS_NEGATED 
BNEQ 60% 


4 (AP) 
CALLS #1, MACR_NODE 
PUSHAB UPDATE 
CALLS #1, G*CLISPRESENT 
INSV RO, #MAC_V_UPDATE,- 
#1.G" MACSCL _CTLMSK 
BLBC RO, 65$ 


PUSHL  4(AP) 
CALLS #1, MACR_UPDA 


PUSHAB LIBRAR 
CALLS #1, Satty st IBRARY.. 


CMPL 0 ons sewenk: 
75§ 

BLBS _LOC_OBJ_FLAG, 70$ 
4 CAP) 

CALLS #1, GET_OBJECT 

B LOC_LSTFLAG, 75$ 
ECAP) 

CALLS #1, GET_LISTING 


SP 
CALLS #1, INP_FILE 


12:98 ard Macro Vv04-00 Page 


MACRO.SRCJGETCMD.MAR; 1 


3; Any more input files? 
; No, return and fini sh processing. 


Push the ENABLE so Need descriptor. 
Was /ENABLE spec 

No, check the next qualifier. 

Use common dynamic or descriptor. 
Yes, process the ENABLE keywords. 


Push the DISABLE mr descriptor. 
Was /DISABLE spec 

No, check the next qualifier. 

Use common dynamic string descriptor. 
Yes, process the DISABLE keywords. 


Push the DEBUG ow descriptor. 
Was /DEBUG specified? 
No, see if negations are performed. 
Yes, use common coon string desc. 
ae process the DEBUG keywords. 
Done, 9° pe the next qualifier. 
Was /NODEBUG explicitly specified? 
No, skip over negation activities. 
Yes, use common dynamic string desc. 
and process negations. 


Push the UPDATE ualifier descriptor. 
Was /UPDATE specified? 
Toggle /UPDATE flag. 


No, process /LIBR, /OBJ and /LIST. 
Use common dynamic strin descriptor. 
Yes, set up UPDATE file list. 


Process global Library, Listing & object qualifiers... 
; ; Push the LIBRARY aye A a descriptor. 


Is this file a LIBRARY? 
: Toggle /LIBRARY flag. 


Set TRUE or FALSE in the FLAGS. 


; /LIBRARY positionally specified 
then skip global file processing 


: Skip if prev local o bi se 
; Process the OBJECT file Soocitication 
(/OBJECT). 

; S.1p it orev local List 
; Process tne LISTING fil le : pec tftcetion 
(/LISTING, CROSS_REFERENCE and /SHOW) 
Now, process the input file... 
(source or Library file). 
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MAC 
V04 


Ce el 


Och re ; Process positional Listing/object qualifiers 
04 AC DD 04 720 PUSHL 4(AP) :; Process the OBJECT file specification 
FD4S CF 01 FB 0488 721 CALLS #1, GET_LOC_OBJECT 3; (/OBJECT). 
04 AC DD 049 7 § PUSHL 4(AP) 3; Process any new LISTING file 
628 7 : spec fication 
FOCB CF 01 FB 049 724 CALLS #1, GET_LOC_LIST ; Local /LISTING, /CROSS_REFERENCE 
0498 725 3 and /SHOW 
ot 726 ; 
049 727; 
0498 728; 
7 Fs ott £98 MOVL ; Get the address of the descriptor 
04 AO D&S 0498 7350 CLRL ase SAT POINTER (RO) 3 and reset it to force a new buffer. 
60 B84 9H: o3) CLRW DSCSWILENGTH (RO) ; Also reset length for next segment. 
08 AE Q0000000'8F 01 O4A0 538 CMPL #CLI$_CONCAT, 8(SP) ; Is this a concatinated input file? 
03 12 Q4A8 734 BNEQ 80$ ; No, but there may be more input files 
FECD 31 ae ty? BRwW 10$ ; Yes, cont tet |e nrocessing the 
: nex 
08 AE Q0000000'8F D1 O4AD 737 80S: CMPL #CLIS_COMMA, 8(SP) ; Check to see if there really are any 
12 0485 738 BNEQ 90$ ; more input file(s) 
00 68 23 4E2 0487 739 BBSS #FLGSV_MOREINP, (R11) 908; Indicate more input file(s) expected. 
04 oe £9 90$: RET ; Return, to complete current command. 
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MACSGETCMD GET COMMAND MODULE 16-SEP-1984 02:17: AX/VMS Macro V04-00 Page 18 | MAC 
v04-000 ACTION ROUTINE POR INPUT FILE SPECIFICAT 5-SEP-1984 #315398 MACRO. SRCIJGETCMD.MAR; 1 . (10) | v04 
4BC 43 .SBTTL ACTION ROUTINE FOR INPUT FILE SPECIFICATION 
| 
4BC 745 ; ++ 
tt eg : FUNCTIONAL DESCRIPTION | 
o } 
04BC 748: THIS ROUTINE CREATES A FAB AND LINKS IT INTO THE LIST OF | 
04B8C 749: INPUT FABS. IT THEN OPENS THE FILE TO MAKE SURE IT EXISTS 
048C 60750: AT FORE EXITING. 
O48C 9751 ; 
04BC O36 3e° 
Oorc O4BC 78 -ENTRY INP_FILE, “MERZ, RB, RG, RS, RG, R7> | 
04BE 754 ANDLE INPUT FILE SPECIFICATION | 
03 00000000'EF 9 O4BE 755 BLBC L*MACS$GL_DIRFLG,10$ BRANCH IF NOT LIBRARY FILE 
017D «31 O4¢5 £36 BRW TNP _LIBRIFILE SELSE GO HANDLE TO BRARY SPECIALLY 
O4c8 138 : CREATE INPUT FILE DESCR. BLOCK 
Q0000000'GF O0000000'EF FA 04C8 760 10S: CALLG L*MAC$G_1_PAGE,G*LIBSGET_VM | 
0403 761 FALLOCATE AN FDB 
03 50 £8 04D3 162 BLBS R0,20$ [BR IF SUCCESS 
0144 31 0406 76 BRW 106$ :NO=-GO REPORT ERROR 
56 00000000'GF DO 0409 764 20S: MOVL GARACSGL BAS ADDR R6 :GET BLOCK ADDRESS 
66 0200 8F 00 6& O00 2¢ O4E0 765 MOVCS (SP) ,#0,#512, (RO) i CLEAR THE BLOCK 
56 08 CO 04E8 766 ADDL2 At R6 POINT TO FDB (SKIP THE LINKS) 
5003 8F B60 O4EB 767 MOVW #<<F ABSC he Hyp 24) C_BID> 
Ab O4EF 768 FAB$B_BID(R6)~ IDEN TIFY AS A FAB WITH IDENT AND LENGTH 
16 AB 02 88 O4F0 769 BISB2 #FABSM GET, PaBSe FAC (RO); SET FOR GETS 
35 A6 OOO000006"EF 90 O4F4 770 MOVB L*INP_ CEFEXT, FABSB_D (RO) 
O4FC 771 :SET LENGTH OF DEFAULT NAME STRING 
30 A6 O000000S'EF 9E O4FC 772 MOVAB L“INP_DEFEXT+1,FABSL _DNA(R6) 
0504 778 AND ITS ADDRESS 
Q0000000'EF 9E 0504 77% MOVAB L“MACSINPUT_XAB,- [STORE ADDRESS OF XAB FOR DATE | 
24 Ab 090A Ae FABSL _XAB(R6) 
bebe aks ; NAM BLOCK FOR SUM$xxxx ROUTINES USED THROUGHOUT MACRO | 
51 50 A6 9E 050C 779 MOVAB FABSC_BLN(R6),R1 :POINT TO NAM BLOCK 
28 AB 6051—s«=#s«C0S510—Ss 780 MOVL  R1,FABS$L_NAM(R6) “STORE NAM ADDRESS IN FAB 
02 Al FF BF 90 0514 781 MOVB  #NAMSC *RAXRSS. NAMSB_ RSS(RI) 
0519 182 TORE, IN NAM BLOCK 
04 Al QO000000'EF 9E 0519 78 MOVAB L“MACSINP_NAM_BUF ,NAMSL BRACRI | 
0521 784 - AND is ADDRESS 
6002 8F BO 0521 785 MOVW §#<<NAMSC_BLN>@8+NAMSC_BID>, = 
50 A6é 0925 786 FABSC_BLN+NAMSB_BI0(R6) 
527. 7 > IDENTIFY NAM BLOCK AS A NAM BLOCK 
10 Al Q0000000'EF 9€ 0527 788 MOVAB L“MACSINPUT_RLFNM,NAMSL_RLF (R1) 
052F 789 :SET RELATED NAM BLOCK ADDRESS 
OC Al O0000000'EF 9€ O5¢F 790 MOVAB L“MACSINP_NAM_BUF ,NAMSL_ESA(R1) 
0537791 -SET EXPANDED STRING BUFFER ADDRESS 
OA Al FF 8F 90 0537 79 MOVB §§ #NAMSC_MAXRSS,NAMSB_ESS(R1) 
05 C 193 : AND ITS SIZE 
03 ¢ 199 > USE LIBSFIND_FILE TO GET THE INPUT FILE NAME | 
. ee 03 ne CLROQ -(SP) : Initialize a dynamic string 
02 90 O53€ 798 MOVB #OSCS$K_CLASS_D 3; descriptor. 
03 AE 0540 799 DSC$B_CLASS TSP) : 


H 14 


51 50 A6 9E 35$:  MOVAB  FABSC_BLN(R6),R1 


QOOOO000"EF 04 87 67 28 MOVCS DSC$W LENGTH(R7) 


L*MACSINP_NAM_BUF 


QO000004'FF FB AG OE 


Ne en nn ele lololeolololololeolol ol ole ol ol elo elo ol ol ol ol ole ol ole ol ola) 
TO— COO9 OOOO OOO OO SN NMWIWIWITTFIO OO NMA = OMIM Mo S COUIMIUIUIND 7 MOOV NUIT OOO S TP 


6 
? 
8 
9 
0 
4 
5 
6 
7? 
8 
9 
0 
NAM$B_RSL(R1) 
4 
5 
6 
7? 
8 
9 
0 
4 
5 
6 


5 : SAVE RESULT STRING FOR LIS 
3 : WHICH ARE SPECIFIED POSITI 
52 Q0000000'EF DE 5 MOVAL L“MACSGL_RESULT, R2 
67 BO 5 MOVW DSC$W_LENGTH(R7),- 
62 3 DSC$Q_LENGTH(R25 


MACSGETCMD GET COMMAND MODULE 16-SEP-1984 02:17 
y04 800 ACTION ROUTINE FOR INPUT FILE SPECIFICAT g-3EF -198¢ 48: 
OF 90 054 00 MOVB #DSCSK_DTYPE_T,- 
02 AE 2 g6¢ DSC$B_BTYPE TSP) 
57 SE 00 34 B0¢ MOVL BBC R? 
QO000000'EF DoF 054 04 PUSHAL L“MACSGC_FFLAGS 
00000000' FF DF 34 i PUSHAL LARACSCL STV_ADDR 
QOOOO000'EF  9F 055 07 PUSHAB L*MACSINP_DEFNAM 
00000000' EF DF 055D 808 PUSHAL L“MACSGL_CONTEXT 
7 Dd 0563 809 PUSHL 7 
04 AC DD 056 10 PUSHL  4(AP 
00000000'GF 07 FB 36 1 CALLS #7, G*LIBSFIND_FILE 
03 50 &8 56 i$ BLBS  R0,30$ ; 
008231 3 B14 BRW 126 
37 bi PERFORM THE REQUIRED BOOKKEEPING 
04 A? —»0 818 30S: MOVL  DSCSA_ POINTER(R7) » - 
2C Ab 819 FABSL_FNA(R6) 
67" 90 820 MOVB DSC$W_ LENCTHXRID. - 
34 Ab 8 1 FABSB_FNS(R6) 
é § SPARSE FAB=(R6),- 
824 ERR=W*MACSERR_OPN_INP 
03 50 £8 825 BLBS R0,35$ 
009331 5 BRW 1153 


: SET LENGTHS FOR SUM$xxx ROUTINES 


@DSCSA_POINTER(R7), = 


INSQUE -8(R6) ,@L“*MACSGL_INPQUE+4 


:08 VAX/VKS Macro v04-00 Page 19 | 
MACRO. SRCJGETCMD.MAR; 1 (10) 


} 
| 
;SETUP THE TYPE | 
3; RESULT WILL CONTAIN THE RESULT DESC | 
SUSER FLAGS 
TV_ADDR | 
tRELATED D NAME(zero = not used) 
‘DEFAULT NAME (filename extension) 
i CON TEXT (of erocteus call) 
;RESULT DESC 


ADDR 
;FILENAME DESC ADDRESS 
;SEARCH FOR FILENAME 


ERROR = REPORT UNABLE TO FIND 


:STORE ADDRESS OF FILENAME STRING 


SSTORE LENGTH OF FILENAME STRING 
: IN THE FAB 


OPEN THE INPUT FILE TO ENSURE EXISTENCE 


BR IF THERE WAS AN ERROR 
:POINT TO NAM BLOCK 


;COPY LENGTH INTO EXPANDED STRING 


; COPY on AND 
; CONTENTS 


67 90 MOVB DSC$W_LENGTH(R7) ,- 
00000008 ' EF L“MACSINPUT _RLFNM+NAMSB_ ESL 
67 90 MOVB DSC$W_LENGTH(R7) ,- 
00000003'EF L“MACSINPUT _RLFNM+NAMSB_ RSL 
67 90 MOVB DSCSW_ LENGTH(R7), ~ 
03 Al 


INSERT THE FDB INTO THE INPUT QUE 


TING AND OBJECT FILES 
ONALLY 


;SAVE THE RESULT NAME STRING 


COPY LENGTH OF EXPANDED STRING 
; FOR OBJECT AND LISTING FILES 


ENG 
FAG 
FAB 
FAB 
FAE 
F AE 
F AE 
F AE 
FAE 
F AE 
F AE 
FAE 
FAE 
F AE 
F AE 
F AE 
Fil 
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MACSGETCMD GET COMMAND MODULE 16-SEP-1984 02:17: AX/VMS Macro V04-00 Pa 0. 
40.680 ACTION ROUTINE FOR INPUT FILE SPECIFICAT etsy be Bios YRACRO SRCJGETCMD.MAR; 1 - 38). 
QOOO0000'EF 04 87 67 28 5 MOVC3 DSC$W LENGTH(R7), @DSC$A_POINTER(R7) | 
3 L“MACSGL_RESADDR TCOPY EXPANDED NAME STRING | 
6 : | 
6 :FOR OBJECT AND LISTING FILES 
26 00000000'GF 8 6 BLBS  G*MACSGL_FINPTF, 40$ :BRANCH IF NOT FIRST INPUT FILE 
00000000'GF 06 6 INCL  G*MACSGL~FINPTF “FLAG FIRST INPUT FILE DONE 
é 


SAVE THE NAME FOR DEFAULT OBJECT FILENAME DETERMINATION 


MOVB  DSC$W_LENGTH(R7),- 
L*MACSOBJPT “RLENM+NAMSB_ RSL | 
LENGTH OF EXPANDED STRING 


MOVC3 DSC$W LENGTH(R7), @DSCSA_ POINTER(R | 

L*MACSOB. _NAM_BUF TCOPY EXPANDED NAME STRING 

{FOR OBJECT AND LISTING FILES | 

MOVB DSC$W_LENGTH(R7) ,- | 
L“MACSLISPT _RLFNM*NAMSB_ RSL 

LENGTH OF EXPANDED STRING 


OPY 
MOVC3 DSC$W LENGTH(R7), apscsa’ * POINTERCR R7), 
L“MACSLIS_NAM _BuF COPY EXPANDED | NAME STRINC 


40S: BISL2 #FABSM_NAM, FABSL_ FOP(R6S 
:SET TO OPEN BY NAM BLOCK 


67 
00000003" EF 
QOOOOOOO'EF 04 B87 67 28 


F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


se se se sd se ss ss 
AOAQOQOOQOQOOOOMOOL 


67 
00000003’ EF 
OOOOOO00"EF 04 87 67 28 


04 A6 01000000 8F C8 


Ce ah alval ab ab Ab sb sb db sb ab sb db sb db abe ah ahah ab esha eal eal ea! 
OOM AIMMMMMMoOOVCVCVVIVIVIIMAOMOOOO DW 
SOOWOWO™ SOOO "POOOOoOnrvawwawanw OF, 


SOOCQCOOCCOCOCCOCOCOOOOOOOOOCOOoOSs 
sO 00 0909.09 00 09 09 09 09 09 OD G0 OD OD CD Cd Od Cd Od C9 CO CD C9 CD CO CO G9 CD CO COCO COCDCNODCDODOCNCDCSCSOCDCSCO 2 ES 


SOOO O0 00000 OOO O00 00 69 09 00 00 09 00 09 09 SI NI NI SINISE NOOO 
WR O ODNAUES WN  O OOONAU EWN 0 OONAUES WN HO ODNAULSWH—-OOOnN 


00B0 C6 OO000000'EF 00 06 MOVL b UPDATE LL Store update files List 
0609 FABSC ABER NAMSC. _BLN(R6) 
11. 13 060 BEQL 60$ sIf EQL there is no List 
00B0 C6 DF 0608 PUSHAL FABS$C_BLN+NAMSC_BLN(R6) ‘Update list | 
50 A6 DF O60F PUSHAL FABS$C”~BLN(R6) NAM block citron 
00000000'GF 02 FB 0612 CALLS #2 -G*SUMSOPEN :Open update files 
08 50 £9 0619 BLBC RO.115$ ‘Error if LBC 
061¢ 60$: RET 
0610 t COULD NOT ALLOCATE AN FDB 
00000000'GF 00 FB 061D 100$: CALLS #0,G*MACSERR_NOMEM_O  ; REPORT ERROR 
F9D9" 31 0624 115$: BRW MACSLAST_CHANCE :GO TO LAST CHANCE HANDLER | 
0627 ; COULD NOT OPEN INPUT FILE | 
50 DD 0627 1208: PUSHL RO SAVE RMS STS | 
Q0000000'EF DF 0629 PUSHAL L*“MACSGL_STV_ADDR TSAVE THE STATUS VALUE ADDRESS | 
57 DD 062F PUSHL R7 [SAVE THE RESULT ADDRESS AND 
00000000'GF 03 FB 06 1 CALLS #3,G*°MACSERR_FIND_INP REPORT ER 
F9C5* 31 0638 BRW MACSLAST_CHANCE :GO TO LAST CHANCE HANDLER 


J 16 
GET COMMAND MODULE 16-SEP-1984 AX/VMS Macro v04-00 Page 21 
PROCESS LIBRARY FILE SPECIFIER mie 7 eee 98 EMACRO SRCIG ETCMD MAR: 1 . i) 
638 905 -SBTTL PROCESS LIBRARY FILE SPECIFIER 
638 9 § 
638 907 ;++ 
; 43 ; FUNCTIONAL DESCRIPTION: | 
638 «910; THIS ROUTINE IS CALLED WHEN THE /LIBRARY QUALIFIER 1S SEEN 
638 «911; A FILE SPECIFICATION. ALL THAT IS DONE IS TO SET THE 
638 918 : Low BIT IN MAC$GL_DIRFLG. THIS WILL CAUSE THE INP FILE 
0638 913; ROUTINE TO TRANSFER CONTROL TO INP_LIBR_FILE WHEN IT 
0638 «914: EVENTUALLY CALLED. 
0638 915 ;-- 
0638 916 | 
638 917 LIBR_FILE: 
0000 0638 918 ‘ 0 «66 ;REGISTER SAVE MASK 
QOOO0000"EF 01 88 063D 919 BISB #1,L°MACSGL_DIRFLG ;SET LIBRARY FILE FLAG FOR INP_FILE 
04 0644 920 RET 
0645 921 
0645 992 +e | 
B663 4 2 ; FUNCTIONAL DESCRIPTION: 
0645 925 ; THIS ROUTINE IS CALLED WHEN THE INPUT SPECIFICATION IS COMPLETE 
0645 926 ; AND THE SPECIFICATION HAS /LIBRARY ON IT. THE LIBRARY IS OPENED, 
0645 927: AND AN IN-CORE INDEX IS CREATED. THIS ROUTINE USES LIBS$FIND_FILE 
0645 928 ; WITH THE CURRENT GLOBAL CONTEXT. THIS ALLOWS STICKINESS 
0645 929 ; WITH OTHER FILES ON THE COMMAN NE. 
0645 930 : 
0645 931; 
0645 o38 s-- 
0645 93 
0645 934 INP_LIBR_FILE: 
0645 935 yNO SAVE MASK SINCE WE BRW HERE 
0645 936 [FROM INP_FILE 
F9B8' 30 Bete o3e BSBW MACSALL_MLB_MLF : Allocate and initialise MLF block 
0648 939 ; USE LIBSFIND_FILE TO GET THE “ry FILE ae (Use same context as 
beee aay : as that used in Routine iNP_FILE 
7E 7C 0648 94 CLRQ -(SP) : Initialize a dynamic string 
02 90 064A 94 MOVB #OSCSK CLASS_D ; descriptor. 
03 AE 064C 944 B CLASS TSP) 
OE 90 O64E 945 MOVB betes ee b E_T,- : SETUP THE TYPE 
02 AE 065 946 DSC$B OTYPE. tsp) 

57 SE 00 bo26 vi 4 MOVL SP, R7 ; RESULT WILL CONTAIN THE RESULT DESC 
Q0000000'EF oF be32 949 PUSHAL L“MACSGC_FFLAGS [USER FLAGS 
00000000'EF DF 0658 950 PUSHAL L“MACS$GL-STV_ADDR :STV_ADDR 

00 DD 0661 951 PUSHL #0 sRELATED NAME(zero - not used). 
OOOOOOOO'EF 9F 0663 828 PUSHAB L“MACSMLB_DEFNAM sDEF AULT NAME (filename extension) 
00000000"5E DF 0669 95 PUSHAL L“MACSGL_CONTEXT sCONTEXT (of t previous call) 
7 OD 66F 954 PUSHL R7 sRESULT DESC S 
04 AC DD 0671 955 PUSHL AP) sFILENAME DESC ADDRESS 
00000000'GF 07 FB b67% 936 CALLS a G*LIBSFIND_FILE sSEARCH FOR FILENAME 
03 50 £8 0678 938 BLBS RO, 5$ 
0080 «(31 44: 959 BRW 20$ sERROR - REPORT UNABLE TO FIND 
681 961 ; Call Librarian procedure to initialise Library 


MACSGETCMD 
v06=000 


1 
90000000" 
eaaens «4 

00000000 ' GF 5 


Prnommyrp 


14 
QO0000000'GF_ 07 
35 50 
78 AG 
eaaes 
00000003‘ EF 


QOOOOO0O'EF 66 
00000000 ' GF 


57 = OC AG 
52 00000000'EF 
62 «67 


OOOOO000"EF 04 B7 67 


5 
QOO000000"EF 0 
F&F 


“Oe 


50 
00000000° EF 
57 


00000000°GF 03 
F8EB 


——Z 


FRESTEESS S 


CODODCOSCCOOCOCOOCOOCOOCSDO 
NNO AAAAAAAAD 
—DOOCCCCCOT TTT TAH 
WW OW 2 2 SS SA NIN Pee 
ce ed ed ed od od I 


WOODOOOOOOOOOOOOOOOOOONO 
30 0 09 0009 09 00 00 09 09 0909 SI NI NSI SI SINININININIOO 
A—OVWODNAULS WN OC OONOUS Wt O00 


990 


SOoOoooooooooooooooo/7s 
—_— 4 M@QOOOOOOOOSOS 
CUE WN SO OONOULS WN OOo 


D MODULE 

BRARY FILE SPCCIFIER 
962 : 
36 S$: PUSHAB 
964 PUSHAB 
965 PUSHAB 
96 PUSHAB 
96 CALLS 

BLBC 


PUSHAB 


INSQUE 
INCL 
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1 4 AX/VMS Macro V04-00 

g-3e -}982 eS 748: 08 YRACRO SRe GETCMD.MAR; 1 
UAMACSOC TIBI YPE | Gacress af tyee a tan 

= 3 ress 0 
L“MACSGL_LIBFUNC ; Address of Knetten 2 READ 
LFSL_CTINDEX(R6) : Address of control table index 

#4, G CBRSINI CONTROL ; Initialise control block 
RO,10$ ; If LBC error 


MLFSQ_FNAMDS(R6) 


L“MACSINPUT_RLFNM 
LO RACSAL_ DEF NAM 


# 
DSC$W_LENGTH(R7) 
OF ake AE 


M$B 
tre), L“MACS$GL_MLB_QUE 
G*MACSGL_MLB_CNI ~ : 


: Call Librarian procedure to open Library file 


Address of resultant Length 
Address of resultant descriptor 
Address of related file NAM block 


Address of default file name descriptor 


Create options = 0 

Address of file name descriptor 

Address of yh table index 

Open ree = 

Error i B 

Set up related name NAM block to 

3; point to current expanded file name 

°° : iy — related file name block 
int to wy t'ys expanded name 

INSERT’ AT FRONT OF MLB QUEUE 

Increment macro Library count 


; SAVE RESULT STRING FOR ber huee = OBJECT FILES 
; WHICH ARE SPECIFIED POSITIONA 


RET 


PUSHL 
CALLS 
BRW 


MLFSQ_FNAMDS(R6), R7 


L“MACSGL_RESULT, R2 
(R7), DSCSW_ LENGTHCR2) 


GET ADDR OF THE RESULT DESCRIPTOR 


E IN THE GLOBAL RESULT ee STRING 


7 SAV 
; COPY LENGTH OF EXPANDED STRING 


OBJECT AND LISTING FILES 


FOR 
DSCS$W LENGTH(R7), aDscsa’ POINTER(R7) 


L*MACSGL_RESADDR 3COP ¥ & 


ER OANDED NAME STRING 
FOR OBJECT AND LISTING FILES 


TRETURN TO CLI 


: LIBRARY OPEN ERROR 


R6 
#1,MACSERR_LBROPEN 


MACSLAST _CAANCE 


: COULD NOT OPEN INPUT FILE 


PUSHL 
PUSHAL 
PUSHL 
CALLS 
BRW 


RO 
L RACSGL_ STV_ADDR 
#3,G*MACSERR_FIND_INP 


MACSLAST_CHANCE 


; Address of MLF 
; Report error 


SAVE RMS STS 
: SAVE THE AM VALUE ADDRESS 


AVE iw RESULT ADDRESS AND 


:REPORT ERROR 
:GO TO LAST CHANCE HANDLER 


rae 


j 
SSS SSS SSS SSS SS SSS 


L 14 


00000003'EF L*MACSLISPT _RLFNM+NAMSB_ RSL 
7COPY ERR?) = OF EXPANDED STRING 


QOOOOOOO'EF 04 87 67 28 MOVC3 DSC$W_LENGTH(R7), @DSC$A_POINTER(R 


] 
| 
MACSGETCMD GET COMMAND MODULE 16-SEP-1984 02:17: AX/VMS Macro Vv04-00 Page 23 
v04-000 ACTION ROUTINE FOR OBJECT AND LISTING FI met 7 fF Bios ERACRO. SRe GETCMD.MAR; 1 . By 
q O18 ~SBTTL ACTION ROUTINE FOR OBJECT AND LISTING FILES | 
7 0 ;++ 
f 1 ; FUNCTIONAL DESCRIPTION: 
7 3 : THESE ROUTINES LIST_FILE AND OBJ_FILE, ARE CALLED BY | 
7 4; GET _LISTI GET T OBJECT, GET_LOC_CIST, GET_LOC_OBJECT 
7 5; WHER THE OUALE IERS ARE FOUND~IN A COMMAND CINE. 
, 0 $ ; THE INFORAAT TON N IS FILLED INTO THE PROPER FAB. 
7 0 8 : Side Et focte: 
7 8 ; THE CURRENT RESULTANT NAME (is stored in a global descriptor) IS 
7 0; INSERTED INTO THE RELATED FILENAME BLOCK. THIS IS DONE HERE 
7 031 : BECAUSE THIS IS THE ONLY'’ PLACE THAT HANDLES LIST FILES AND 
7 0 é ; OBJECT FILES AFTER THE RESULTANT NAME IS COMPLETE FOR POSITIONAL 
d 033 3 QUALIFIERS. ALSO THE IFI FEILD IS CLEARED. 
7 — 
7 
7 LIST_FILE: 
0000 , -WORD 0 ;REGISTER SAVE MASK 
f > INSERT THE RESULTANT FILENAME INTO THE RELATED FILE NAME BLOCK. 
57 QO0000000'EF DE 07 MOVAL L*MACS$GL_RESULT, R7 ;SAVE THE RESULT NAME STRING 
90 ? MOVB © DSC$W_LERGTH(R 7§,< 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


SOOOCOOSOOOOOCOCOSOOCOSCOSOSOSOSOSOCOSSOOOOOCSCSOCOOOCOOOOCOOOOOOOOOOOOOOOOO 


PAR QXRX® MMM & & & SANA NIAID 9 St 9 
ee ee ae ee a ee ee ee ee a a ee a ee a ee a a a a ad ed 


DWDOLMNVOMD NNNOOCONNVOCOO OO NN NUM MM ANON NNN NIM MMM IM 


0 
035 
036 
03 
038 
039 
040 
sh 
ks 
Dus 
$46 
047 L*MACSLIS_NAM_BUF COPY EXPANDED NAME STRING 
048 R OBJECT. AND LISTING FILES 
50 OQ0000000'EF  9€ 049 MOVAB L“MACSLIST_FAB,RO GET THE F SS 
20 «11 030 BRB OPEN_FILE SAND GO HANDLE ait; REST 
05¢ OBJ_FILE: 
0000 053 .WORD 0 :REGISTER SAVE MASK 
$23 : INSERT THE RESULTANT FILENAME INTO THE RELATED FILE NAME BLOCK. 
57 00000000'EF dE 07 057 MOVAL L“MACSGL RESULT R? :SAVE THE RESULT NAME STRING 
67 90 07 058 MOVB bscsu LENGTH 
00000003' EF 7 059 L SHACSOBSPT. RLFNM*NANSB_R RSL 
7 060 TCOPY LENGTH OF EXPANDED STRING 
Q00000000"EF 0487 67 28 O07 061 MOVC3 DSC$W_LENGTH(R7), @DSCSA_POINTER(R7) 
7 6¢ L*MACSOBJ_NAM_BUF COPY y EXPANDED NAME STRING 
7 06 OR OBJECT AND LISTING FILES 
50 O0000000'EF  9€ , 064 MOVAB L“MACSOBJECT_FAB.RO ‘GET THE FAB ADDRESS 
7 066 OPEN_FILE: 
51 04 AC 00 07 067 MOVL 4(AP), R1 :GET THE RESULTING FILENAME 
04 Al D0 07 068 MOVL  DSCSA_ POINTER(RI) - [STORE ADDRESS OF FILENAME STRING 
2C AO 7 069 FABSL_FNA(RO) : IN THE FAB 
61 90 07 970 MOVB  DSC$W_ LENGTH(RY) - ‘STORE LENGTH OF FILENAME STRING 
34 AO 7 71 FABSB_FNS(RO)  : 
02 a0 00 80 , a8 MOVW #0, FABSW_IFITRO) > CLEAR IFI... VALIDATES THE FAB 
7 74 


RET 


: 
M14 
MACSGETCMD GET COMMAND MODUL 16-SEP-1984 217: AX/VMS Ma ¥04-00 P 4 | 
v04-000 GET_KEYWORDS Setcin qualifier keywords ey 7 EES: EMACRO.SRe GETCMD MAR; 1 oe 3) 
168 i ne -SBTTL GET_KEYWORDS Obtain qualifier keywords | 
769 1078 : | 
169 i ; Functional Description: | 
769 «#1 H : This routine is called to obtain the next (if any) k d for th 
188 1088 : indicated qualifier. : veer tenis Monee 
769 i : Inputs: 
769 1086 : (SP) adr Return address (result of JSB entry) 
769 «1 fh : 4(SP) adr Address of a dynamic string descriptor 
1524 : Ss : R7 adr Address of a dynamic string descriptor for the qualifier 
BPS} 1850 | utoues: 
1424 1938 ; 4(SP) adr The descriptor now points to the Latest keyword parsed 
0769 1094 ; Routine Value: 
3534 1938 RO contains the return status from the CLI. 
BSS 1838 Fo 
0769 1100 GET_KEYWORDS: 
04 AE 0769 1101 PUSHL 4(SP) ; Push address of descriptor. 
57 Dd 076C 1136 PUSHL R ; Push the address of the qualifier descript 
Q0000000'GF 02 FB 8596 110 CALLS #2, G*CLISGET_VALUE ; Get the next keyword. 
05 0775 1104 RSB 
0776 1105 
0776 1106 


ef 


MACSGETCMD GET COMMAND MODULE 16=SEP=1984 02:17: AX/VMS Macro V04-00 Page 25 | MAC 
y0%~600 PROCESS CROSS QUALIFIER mie} BF bie UMACRO SRE GETCMD.MAR; 1 . Gay Tab 
776 1108 .SBTTL PROCESS CROSS QUALIFIER | 
AS a 
126 nit > FUNCTIONAL DESCRIPTION: 
are 1143 : THE KEYWORDS ARE SCANNED AND MACSGL_CRF_FLG IS FILLED IN WITH 
776 #1114; THE CORRESPONDING BITS. 
0776 1115 : | 
a 
776 1118 MACR_CROS 
OFFC 226 111 WORD —“MCR2,R3,R4.R5,RO,R7,RB-RI R10, RI1> sREGISTER SAVE MASK 
5B YO000000'EF = 9E 0778 1120 MOVAB L“MACSGL_FLAGS.R11 POIN TO FLAGS 
04 AC DD O77F 1121 PUSHL  4(AP) : aveaa of dynamic string descriptor. 
57 Q0000016'EF 9E 0782 1188 MOVAB CROSS, R : Address of qualifier descript tor. 
43 of 1444 1182 8. GFT. f yuanes ; = the pty of tp (if any). 
one, go (oo 
12 fe O78F 1125 MOVZWL  #CRESM_ SYMBOL § {CRF SM nachos, - ;NO--SET THE ites 
00000000" EF 0791 1196 “MACSGL_CRF [OF SYMBOLS AND MACROS 
04 0796 1127 RET AND LEAVE IT AT THA 
Bt 18s 
1424 Vie ; LOOP, LOOKING UP KEYWORDS AND SETTING BITS IN MACSGL_CRF_FLG 
CF AF 16 0797 1138 ios: JSB GET_KEYWORDS :; Get the keyword | 
48 50 €9 079A 1133 BLBC = RO, "408 : ALL done? 
56 6E€ DO O79D 1135 15$: MOVL (SP), R6 ; Get the descriptor's address. 
50 66 3C O7A0 1136 MOVZWL OSCSW_LENGTH(R6), RO GET LENGTH OF ASCII STRING 
43. 13 O7A3\ 1137 BEQL 0$ SIF EQL THEN ALL DON | 
51 Q0000000'F® 9E 07A5 1138 MOVAB L“MACSAB_TMPSYM,R1 :THERE IS A STRING--PT TO NAME BLK 
50 90 O7AC 1139 MOVB RO. (R1)+ SSTORE LENGTH OF STRING 
0486 50 2C O7AF 1140 MOVCS RO. aDSCSA_ POINTER(R6),- :COPY NAME INTO TMPSYM | 
61 1F 00 07B3 1141 #0, #SYMSK"MAXLEN,(R1) WITH ZERO FILL 
55 Q0000000'EF 9& 0786 1148 MOVAB L*“MACSCRF-OPTIONS,R5 © : POINT TO THE List OF OPTIONS | 
F840" 30 O7BD 114 BSBW MACSSR C_KEYS [LOOK UP THE OPTION 
0A 50 EB O7C0 1144 LBS. BRANCH IF FOUND | 
00000006 all> SF Grea Hide GATS ARegctetey.voieenon REPORT 
50 05 A1 DO O7CD 1147 208: MOVL  SYMSL_VAC(R1),RO Ort hE "VALUE 
- Oren 114 BGTR 30% :I1F GTR THEN OK 
50 50 02 0703 1109 MCOML  RO,RO sELSE T HIS IS ''NOXXXX"’ 
00000000 ' EF 30 cA o708 1130 BicL RO,L“MACSGL_CRF_FLG CLEAR THE CREF FLAG 
’ : RO,L*MACSGL_CRF_FLSG :SET IN CREF FLAGS 
eeenee ee ae OU Be te? Oe me #60 GET NEXT, OPTION : 
04 O7E8 1154 408:  —RET [RETURN TO CLI | 
O7E9 1155 | 
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puieieinmernenntiinenidimeiieie 


p++ 
> FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED TO PROCESS THE /SHOW QUALI 
THE KEYWORDS ARE SCANNED AND THE APPROPRIATE st he 
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MACR_SHOW: 
. WORD 


MO 


AM<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> REGISTER SAVE MASK 
#1,R10 :FLAG SETTING OPTIONS 


F 

5A O01 OD 

57 OO000009D'EF 9 
oe ase 


OMMA D 
ss § NO 
9 1157 
9 1323 
9 115 
9 1160 
9 1161 
9 1198 
O7E9 116 
O7E9 1164 
O7E9 1165 
O7E9 1166 
O7E9 1167 
8 9 1168 
9 1169 
O7EB 1170 VL 
0 E 1171 MOVAB SHOW, R7 ; Address of qualifier descriptor. 
0 1106 BRB SHOW_NOSH 3 
O7F7 117 
07F7 1174 MACR_NOSH: 
OFFC O7F7? 1175 ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> =;REGISTER SAVE MASK 
5A D4 O7F9 1176 CLRL R ;FLAG CLEARING OPTIONS ’ 
57 00000081'EF 9E 8 8 Vien MOVAB NOSHOW, R7 ; Address of qualifier descriptor. 
0802 1179 SHOW_NOSH: 
59 00000000 'EF 9E 0802 1180 MOVAB L“LST$G_DIRLIST,R9 sPOINT TO SHORT NAME TABLE 
58 QOO000000'EF 9E& 0809 1181 MOVAB L“LST$G_LONGNAMES ,R8 ;AND LONG NAME TABLE 
27 ~=©11—«0810 1136 BRB SHOW_ENAB 
0 1§ 118 
0812 1184 MACR_ENAB: 
OFFC 0812 1185 WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ;REGISTER SAVE MASK 
SA 01 DO 0814 1186 MOVL #1, sFLAG SETTING OPTIONS ; 
57 00000049'EF 9E& 0817 1187 MOVAB ENABLE, R7 ; Address of qualifier descriptor. | 
0B 11 OBIE 1188 BRB ENAB_DSAB ; 
0820 1189 | 
0820 1190 MACR_DISA: 
OFFC 0820 1191 ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ;REGISTER SAVE MASK 
5A D4 0822 1136 CLRL R10 sFLAG CLEARING OPTIONS E | 
57 OQOOO003A'EF 9E Base 1132 MOVAB DISABLE, R7 ; Address of qualifier descriptor. 
nets 1195 ENAB_DSAB: 
59  00000000'EF 9E st 1196 MOVAB L“ENBS$G_OPTIONS,R9 ;POINT TO SHORT NAME TABLE 
58  O0000000'EF  9€ 0832 1197 MOVAB L*ENBSG-LONGNAMES,R8 § AND LONG NAME TABLE 
0839 1199 ; . 
0839 1200 ; Fall into the common code... 
0839 1201 ; 
0839 1202 
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v04-0 PROCESS SHOW/NOSHOW,ENABLE/DISABLE QUALI 5-SEP-1984 01:48: MACRO.SRCIJGETCMD.MAR; 1 (16) | 
9 1204 ; 
o8 9 1 09 3 COMMON CODE FOR ENABLE/D1SABLE/SHOW/NOSHOW THE VALUES ARE SCANNED , 
839 1 $ ; BITS SET OR CLEARED IN SYMBOL BL D BITS SET OR CLEARES IN 
4 2 } t4 ; MACSGL_ENLISF (COMMAND ENABLE / LIST FLAGS) UNTIL NO MORE VALUES. 
9 1209 SHOW_ENAB: 
5B O0000000'EF 9E 0839 1210 MOVAB L*MACS$GL_FLAGS,R11 :R11 MUST POINT AT FLAGS 
04 AC OD pate 1211 PUSHL 4(AP) Address of dynamic string descriptor. 
FF22 CF 16 0843 1 \¢ JSB eft eg yworos ; No, any i og specified? 
08 50 §—* 0847 121 BLBS RO, 15$ 3; Yes, proces 
4 OB4A 13 RET :***SHOULD DO DEFAULT THING! 
FFIA CF 16 bBc6 1216 108: JSB GET_KEYWORDS : Get the next keyword. 
6c 50 =E9 Beet ! i? BLBC RO, 50$ : ALL done, return. 
56 6E 09 0852 1219 15$: MOVL (SP), R6 Get the descriptor: s address. 
50 66 6 0855 1220 MOVZWL OSCS$W_LENGTH(R6), RO {ANOTHER V LUE? 
64 13 0858 1221 EQL 50$ s1F EQL NOM LEXIT 
51 Q0000000'EF 9E& O85A 128¢ MOVAB L“MACSAB_TMPSYM,R1 :COPY TO TEMP BUFFER 
1 50 90 0861 122 RO,(R1)+~ ‘COPY NAME LENGTH 
04 B6 50 2C 0864 1224 MOVCS RO,@DSCSA_ POINTER(RG) ,- :COPY NAME INTO TMPSYM 
61 1F 00 0868 1225 #0, #SYMSK_MAXLEN, (R1) Eves 
55 59 DO 086B 1226 MOVL RO,R5 ;LOOK UP NAME IN SHORT NAME TABLE 
F78F" 30 O86E 1227 BSBW MACS$SRC_LIST :IN THE SHORT NAMES 
19 50 €8 0871 1228 BLBS RO,30$ ~ ‘BRANCH IF WE FOUN DIT 
55 58 00 0874 1229 MOVL R8. RS :NO==TRY THE LONG NAMES 
F786" 30 0877 1230 BSBW RACSERC KEYS 
0A 50 €E€8 O87A 1231 BLBS 0,20$ ~ 7 BR ANCH IF WE FOUND IT 
00000000'GF 00 FB 087D 1238 CALLS #0,G*MACSEKR_KEY_WD :NO—-ERROR~-REPORT PROBLEM 
F779" 31 0884 123 BRW MACSLAST_CHANCE ~ AND EXIT 
51 05 Al DO 0887 1234 20S: MOVL SYM$L_VAC(R1),R1 ‘POINT TO THE REAL OPTION NAME BLOCK 
BE 13 0888 1235 BEQL 108 : BRANCH IF "'NONE'’ (/SHOW W/NO VALUES) 
18 SA £9 088D 1236 30S: BLBC ANCH IF CLEARING OPTIONS 
00000000'EF 09 A1 AB 0890 1237 BISw2 Crneee FLAGcRt) L“MACSGL -ENCISE sNO=-SET IN COMMAND FLAGS 
A FF 8F 98 0898 1238 CVTBL #-1,SYM$L_VAL(R1) >SET FLAG IN SYMBOL BLOCK 
00000000'EF 09 A1 AA O089D 1239 BICWw2 syngu. PeagtAT) L“MACSGL DsLIsr’ :NOTE FLAG SET, IN DISABLE FLAGS 
FFAS 31 OBAS 1240 BRW 10$ ES§ NEXT 0 PTI 
00000000'EF 09 Al AA OBAB 1241 40S: BICW2 SYMSW_FLAG(R1),.L“MACSGL ENUISE: :CLEAR IN COMMAND FLAGS 
05 Al D4 08B0 12he CLRL SYM$L~VAL D IN SYMBOL BL 
00000000'EF 09 A1 AS O8B3 124 BISW2 SYMSW-FLAG(R1),L“MACSGL -bsLIst ;NOTE FLAG CLEARED, IN DISABLE FLAGS 
FF8D 31 O8BB 1244 BRW 10$ PROCESS NEXT OPTION 
04 O8BE 1245 50$: RET 
O8BF 1246 
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DEBUG/ NODEBUG QUALIFIERS 


16-SEP-1984 
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12:98 paces Macro V04-00 


MACRO.SRCJGETCMD.MAR; 1 


-SBTTL PROCESS DEBUG/NODEBUG QUALIFIERS 


+4 
; FUNCTIONAL DESCRIPTION: 
The /DEBUG qualifier (hus its associated che gg ssqued with the 


DCL MACRO command will beh 


bination of 


and TRACEBACK parameters. 


This ees searchs for a specific parameter for the /DEBUG command. 
Upon recognition of a parameter, the associated 
its) is performed. 


clearing 


ave in the same manner issuin 
the /ENABLE and /DISABLE qualifiers utilizing 


nine pra MAb. are enumerated below. 


DBG_NEXT_OPT: 


BRW MACSLAST CHANCE ~ 


“M<R2,R3,R4,R5,R6,R7,R8, re R10,R11> ;REGISTER SAVE MASK 
MOVAB DBG$G.LONGNAMES,,Ri DISABLE BOTH DEBUG AND TRACEBACK 
BRW DEBU_RODE NEED TO DO ANY LOOK UPS, JUST DO IT 
WOR “M<R2,R3,R4,R5,R6,R7,R8, wee sig at ;REGISTER SAVE MASK 
CLRL FLAG FOR SYMBOLS AND/OR TRACEBACK SEEN 
MOVAB G*MACSGL_FLAGS, R11 POINT ° FLAGS. 
PUSHL 4(AP) : Address of dynamic string descriptor. 
MOVAB DEBUG, R7 ; Push address of DEBUG qualifier descriptor 
JSB GET_KEYWORDS ; Get the keywords (if any). 
BLBS RO, ; Got one, process it! 
BRW DBG_ RETURN : No more, so return (Will handle default ca 
OVL (SP), R6 Get the Googe Teter s address. 
MOVZWL DSCSW_LENGTH(R6) ,RO T ANOTHER V ALUE? 
BNEQ 3; 1F NEQ ves -- CONTINUE PROCESSING IT 
BRwW DBG_RETURN [IF EQL NO == EXIT 
MOVAB L“MACSAB_TMPSYM,R1 ;COPY TO TEMP BUFFER 
OvB RO” (R1)+~ ;COPY NAME LENGTH 
mMOoVCS a ait tie “RAN Ea te :COPY NAME into TMPSYM 
Sette crsecke. kevsnes R : LOOK UP THE OPTION IN THE LONG NAMES 
LBS RO. DEBU_NODE ‘BRANCH IF WE FOUND IT 
CALLS O° G°HACSERR KEY_WD 


7 +) alt aathcay PROBLEM 
sAND EXIT 


action (setting and/or 
List of parameters and thier 
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MACSGETCMD GET COMMAND MODULE 16-SEP-1984 217: AX/VMS Macro V04-00 Page 9 
yO .S00 PROCESS DEBUG/NODEBUG QUALIFIERS eae RS: EMACRO SRe GETCMD.MAR; 1 . 8) 
91D 129 3+4 
91D 129 : COMMON CODE FOR DEBUG/NODEBUG. 
91D 1 i ; Bits are set/cleared in the symbol block and in MACSGL_ENLISF 
Bar8 ! BO ; (Command Enable/List Flags) until no more values are encountered. 
091D 1 oY : First execute some common code to set up addressing of the necessary 
091D 1 8 3 symbol blocks. 
091D 1303 ;-- 
091D 1304 
091D 1305 DEBU_NODE: 
38 QOO00000'GF 9E 091D 1306 MOVAB G*ENB$G_D :POINT TO DEBUG SYMBOL BLOCK ENTRY 
5 00000000 ' GF 9E 82 : ! if MOVAB G*ENBS$G_ mittee Nae R3 + AND TO THE TRACEBACK ENTRY. 
092B 1309 ;++ 
43 4 1319 ; Begin looking for the specific qualifier parameters... 
0928 1316 ; The parameter code values are... 
0928 1313; 
092B 1314; Value peak Sema Action 
0928 1315; 0 None Disable both the DEBUG and TRACEBACK options 
092B 1316 ; 1 Symbols Disable TRACEBACK and Enable DEBUG option 
092B 1317; 2 Traceback Disable DEBUG and Enable TRACEBACK eotien 
0398 1318 3 3 ALL (default) Enable both the DEBUG and TRACEBACK options 
0928 1320 ° 
51 05 Al CO 0928 1321 MOVL SYM$L_VAL(R1),R1 ;CHECK WHICH OPTION WAS SELECTED 
29 14 O92F 1322 BGTR 10$ NCH IF PARAM IS NOT ' 
00000000 ' GF 09 A2 AA 0931 1323 BICw2 SYMSW_ PLAGERG) « G*MACSGL _ENLISE ;SINCE IT IS a F WE DISABLE 
05 A2 D4 0939 1324 CLRL_ SYM$L~VAL(R2) ;BOTH THE DEBUG AND THE TRACE- 
00000000 ' GF 09 A3 AA 093C 1325 BICw2 SYMSW_ A G*MACSGL_ ENLISF et QUALIFIER BITS i. THE 
05 A3 D4 0944 1326 CLRL SYMSL— (R3) ;GLOBAL AND wn CONTROL BLOCKS 
00000000 "EF 09 A2 AB 0947 1327 BISW2 SYMSUT yee th). L“MACSGL _bstisr- sNOTE FLAG CLEARED, IN DISABLE FLAGS 
00000000 ‘EF 09 A3 AS O94F 1328 BISW2 SYMSW_ FLAG(RS) -L*MACSGL™ Pati’ [NOTE FLAG CLEARED, IN DISABLE FLAGS 
0099 31 beta 1368 BRW DBG RETURN DONE, CONTINUE OTHER PROCESSING. 
01 51 D1 O95A 1331 10$: CMPL R1,#1 ay he FOR THE "SYMBOL S"' QUAL 
31 14 095D 1336 BGTR 20 NCH IF NOT ‘'SYMBOLS'' 
00000000 "EF 09 A2 AB O9SF 133 BISW2 — FLAG(R2) ,L“MACSGL _Entise 3;SET IN COMMAND FLAGS 
05 A2 FF 8F 98 0967 1334 CVTBL #-1,SYM$L_VAL(R2) ;SET FLAG IN rem BLOCK 
00000000 ‘EF 09 A2 AA QO96C 1335 BICwW2 Syngc FLAGCRD). L“MACSGL _DSLISF sNOTE FLAG SET, IN DISABLE FLAGS 
16 5A EB 0974 1336 BLBS R ; TRAC BACK or ores? PREVIOUSLY SET? 
00000000'GF 09 A3 AA 0977 1337 BICWw2 SYM$W_FLAG(R3),G*MACSGL -ENLISF ;DISABLE TRACEBACK IN COMMAND 
05S AS D& O97F 1338 CLRL SYM$L_VAL(R3) AGS ND S$ SYMBOL BLOCK 
00000000 ' EF 09 AS) AB +4 2 1333 BISW2 synsu. FLAG(R3),L*MACSGL _bSUISF Fo A FLAG CLEARED IN amg FLAGS 
5A 01 DO 098A 1340 MOVL ;SHOW THAT "SYMBOLS HAS BEEN S 
FF50 31 0980 1341 15$: BRW DBe. _NEXT_OPT [PROCESS NEXT OPTION 
02 51 D1 099 1303 20$: CMPL R1,#2 fay be FOR THE ryt yy QUAL 
31 14 99 1344 BGTR 30 “BRA NCH IF NOT ‘TRACEBACK 
00000000 ' GF 09 AS) = AB-—s(0995)—s- 1345 BISW2 Mee ee Tt Naat ENCISE ;SET IN COMMAND FLAGS 
05 AS OFF BF) | o9B:«(099D «1346 CVTB SYMSL VAL CR FLAG IN SYMBOL BLOCK 
00000000 ' EF 09 AS AA O9A2 1347 BICW Synge aa ),L*MACSGL bSLIst sNOTE FLAG SET, IN DISABLE FLAGS 
16 5A EB OQ9AA 1308 BLBS 3) YMBOLS or TRACEBACK Pa Asean SET? 
00000000 ' EF 09 ‘s AA Q9AD 1349 BICw2 SYM$ti =f LAG IRS) « L“MACSGL -ENLISE :DISABLE DEBUG IN COMMAND 
05 A2 D4 0985 1350 CLRL SYM$L~ VAL (R2) LAGS AND SYMBOL BLOCK 
00000000 ' EF 09 A2 A8S 0988 132! BISW2 SyMSU yee CAD) . L“MACSGL bStISt sNOTE FLAG CLEAR ED, IN piseee FLAGS 
5A 01~=—0s«09C0=—-:1352 MOVL #1,R10 SHOW THAT "TRACEBACK Mes BEEN SEEN. 
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y05 850 PROCESS DEBUG INODEBUG QUALIFIERS mets 8F: 1p 98 YRACRO SRE GETCMD.MAR;1 
FFIA 31 33 1353 25$:  BRW DBG_NEXT_OPT ;PROCESS NEXT OPTION 
ace 1385 
p++ 
sce 1 $ ; IF you are here, we assume the ALL peremeter was specified... 
ace ! 38 : In other words Both the DEBUG and TRACEBACK options are enabled. 
9(6 1359 ° 
OO000000'GF 09 A2 ae pace 1360 30$: BISW2 SYM$W_FLAG(R2) ,G*MACSGL_ENLISF 
0S a2 sFF BF OO CE 1361 cVTBL #-1,S7MSL VAL CR ) 
00000000 ' GF 09 A3 AB 09D 1 6¢ BISW SYM$id FLAG(R3) 5 re 
05 AS «FF BF) | o98:«(09DBSO136 CVTBL #-1,SYMSL_VAL(R3) 
QOOOOOOO'EF O9A AA e434 1364 BICW SYM$W_FLAG(R ),L“MACSGL_DSLISF ;NOTE FLAG SET, IN D 
00000000 ' EF 09 A AA O9E 1365 BICW SYM$W_FLAG(RS),L“°MACSGL_DSLISF ;NOTE FLAG SET, IN D 
FEED 31 O9FO 1366 BRW DBG_NEXT_OPT ' 
O9F3 1367 
O9F 1308 2++ ; ; - 
O9FS 1369 ; That's all for now...continue with the other processing 
O9F3 1370 ;-- 
O9F3 1371 
04 O9F3 1372 DBG_RETURN: RET 


MACSGETCMD GET COMMAND MODULE 16-SEP-1984 217: AX/VMS Macro V04-00 Page 
v0%~000 PROCESS /UPDATE QUALIFIER ~3Fb= 1 384 BFidgios EMACRO. SRC GETCMD.MAR; 1 . 
aere 1374 -SBTTL PROCESS /UPDATE QUALIFIER 
9F4 1375 
pore 1 6 p++ 
9F4 1377 ; Functional description 
O9F4 1378 ; 
Bere 1379 ; This routine is called to process the /UPDATE qualifer. 
9F4 1380 ; The Source update merge procedure SUM$UPDATE_QUAL is called to 

bere i 1; process any values on the qualifier 
O9F4 1 e§ ; Inputs: 
O9F4 1384 ; 
yore 1386 ; 4(AP) = adr Address of a dynamic string descriptor. 
O9F4 1387 ; Implicit Inputs: 
O9F4 1388 ; ; 
O9F4 1389 ; CLISGET_VALUE adr Address of CLI call back routine. | 
O9F4 1390 ; adr Address of the qualifier name descriptor. | 
Bore 133) ; UPDATE_LIST adr Address of List head for the update file List. 
O9F4 1398 3; Outputs: 
O9F4 1394 ; 
O9F4 1395 ; Update files List 
O9F4 1396 ; 
O9F4 1397 ;-- 
O9F4 1398 
09F4 1399 MACR_UPDA: 

0000 O9F4 1400 WORD ; Register save mask — 

04 AC DD O9F6 1401 PUSHL  4(AP) ; Address of the descriptor. | 
QOOOOOOO'EF DF O9F9 1402 PUSHAL UPDATE_LIST ; Address to put update files List 
QOOOOOA9'EF 9F O9FF 1403 PUSHAB UPDATE ; Address of the qh ite descriptor. 
Q0000000'GF 9F QOA0S 1404 PUSHAB G*CLISGET VALUE ; Address of the CLI call back routine. 

00000000'GF 04 FB QOAOB 1405 CALLS #4,G*SUMSOPDATE_QUAL :; Process list : ; 
04 OAl 1406 RET ; Return to finish input file processing 
ash 
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FLGSV_CRSEEN = 000 68 0 LIBSGET_VM eeereree =X 05 
FLGSV_DATRPT = 00000004 LIBRARY 9000065 8 04 

FLGS$V_DBGOUT = 000 8 E LIBR_FILE 000 R 5 

FLGSV_DLIMSTR = 0000 $ F LISTING 3808 72 R 04 

FLGSVENDMCH = 00000005 LIST_FILE 0000715 R 05 

FLGSV_EVALEXPR = 000000 § LIST -QUALS 0000304 RG 05 

FLGSV_EXPOPT = 000000 LOC_CST_FLA MOOR ON a 03 

FLGSV_EXTERR = 00000030 LOC OBJ FLAG 00000008 R 03 

FLGSV_EXTWRN = 00000031 LSTSG_DIRLIST eeeeeeeer YX 05 

FLGSV_FIRSTLN = 00000029 LST$G-LONGNAMES eeeeeeee =X = 05 

FLGSV_IFSTAT = 00000017 MACSAB_TMPSYM aeeeeeee =X 05 

FLGSV_IIF = 000 O08 MACSALC_MLB_MLF aeeeeeee YX 05 

FLGSV_INSERT = 0000000 MACSCRF_OPTIONS aeeneeee =X 05 

FLG$V~IRPC = 0000001D MACSERR-FIND_INP aeeeenee X05 | 
FLGSV_LEXOP = 00000021 MACSERR_KEY QD aeeeeeee =X 05 
FLGSV_LSTXST = 00000009 MACSERR_LBROPEN aeeeeere =X = 05 | 
FLGS$V_MAC2COL = 00000028 MACSERR_NOMEM 0 aeeneeee =X = 05 
FLGSV_MACL = 00000008 MACSERR_OPN_IAP eeeneeee = YX 05 
FLGSV_MACLTB = 00000018 MACSERR_OPN_OUT seenenee = X = 05 

FLGSV_MACTXT = 00000010 MACSERR_TEXT eeeeeeee = YX 05 
FLGSV_MEBLST = 0000000C MACSGC_FFLAGS aeeeeeee =X 05 
FLGSV_MOREARG = Has ot43 MACSGETCMD 00000000 RG 05 
FLGSV_MORE INP = 000000 MACSGL "BASEADDR aeeneeee =X 05 
FLGSV_NEWPND = 0000000A MACSGL_CMDLEN aeeeeeee =X = 05 
FLGSV_NOREF = 00000018 MACS$GL_CMOLIN eeeeeeee =X 05 

FOS _NTYPEPC = ts £4 MACSGL_CONTEXT eeeenene =X 8605 

FLGSV_NUL CHR = 000000 g MACSGL_CRF_FLG eeeeeeee =X 05 

FLG$V_OBJXST = 0000001 MACSGL_CTLASK eeeeeeee =X 05 

FLG$V_OPNDCHK = 00000028 MACSGL_DIRFLG aeeeeeee =X = 05 

FLGSV_OPRND = 0000000D MACSGL_DSLISF aeeneeee =X = 05 

FOS “OPTVFLIDX = 0000002C MACSGL_ENLISF seeeeeee =X = 05 

FLGSV_ORDLST = 00000011 MACS$GL_F INPTF aeeereee = X 05 

FLG$V_P2 = Q000000E MACSGL_FLAGS eeeeeeee =X | 05 

FLGSV_RPTIRP = 0000001C MAC$GL_ INPQUE eeeeeeee =X = 05 

FLGS$V_SEQF IL = 00000019 MACSGL_LIBFUNC eeeneeee =X = 05 

FLGSV_SKAN = 0000000F MACS$GL_LIBTYPE aeeneeee =X = 05 
FLGSV_SPECOP = 00000022 MACSGL_MLB_CNT aeeeeeee =X = 05 
FLGS$V_SPLALL = 0000001A MACSGL_MLB_ QUE aeeeeeee =X 05 
LGSV_STOIMF = 00000012 MACSGL_RESADOR eeeneeee§ = X = 05 
FLGSV_SYM2COL = 0000002A MACSGL_RESULT eeeneeee = =6X | (05 
FLG$V_TOCFLG = 00000013 MACSGL_STV_ADDR aeeeeeee = X 05 | 
FLGSV_UPAFLG = aa MACS$GQ" RNT- CMD aeeeeeee XY 05 

FLGSV_UPOF IL = 00000027 MACSG 7 *AGE eeeneeee = X = 05 

FLGSV_UPMARG = 900 $6 MACSIR&< « _RLENM aeeeeeee =X = 05 

FLGSV_XCRF = 000 F MACS aeeeeeee s & 

GET_IRPUT 00000 3 RG 05 MACSINP_DEFNAM eeeeeeee = =X = 05 

GET"KEY 00000769 R 05 MACSINP-NAM_BUF teeeeree =X = 05 

GET“LISTING 0000161 RG 05 MACSLAST_ CHANCE seeeeeee =X 05 

GET“LOC_LIST 0000263 RG 3 MACSLISPT_RLFNM aeeeeree =X = 05 

GET~LOC- OBJECT 808812 RG 5 MACSLIST_FAB aeeeeeee = X = 05 

GET"OBJECT 00000100 RG 05 MACSLIST"RAB eeneeeee =X = 05 

INP_DEFEXT 000004 R Be MACSLIS_RAM_ BUF eeeenere =X 05 

INP—F ILE 004BC RG 5 MACSMLB_DEFRAM eeeeeeee =X = 05 

INP-LIBR_FILE 0064 82 MACSMSG_NO_FILE ateeeree =X 82 

LBRSINI StONTROL eeeeeeee =X 5 MACSOBJECT "FAB eeeeeeee = 5 

LBRSOPER eeeneeee§ =X = 05 MACSOBJECT"RA eeeeeeee =X = 05 

LIBSF IND_FILE eeeeeree XY 05 MACSOBJPT_RLFNM eeeeeeee = X = 05 
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MACSGETCMD 
Symbol table 
PSCSL_ 


MACSGETCMD GET COMMAND MODULE Ig-$EP-1984 02:17:08 VAX/VMS Macro V04-00 Page 35 | 
Symbol table ~SEP=1984 01:48: MACRO. SRCJGETCMD.MAR; 1 (19) | V 
SYMSM_ABS = 0000001 | 
SYMSM ASN = 0000010 | 
SYMSM_CRF = 000020 
SYMSM~DEBUG = 0000 
SYMSM_DEF = 00000001 | 
SYMSM~DELMAC = 99000200 | 
SYMSM_EPT = 00000 0 
SYMSM~EXTRN 2 99900 0 | 
SYMSM~GLOBL = 00000004 | 
SYMSM_LOCAL = 00000040 
SYMSM~ODBG = 00000400 | 
SYMSM_REF = 99000 80 
SYMSM_RELPSECT = 00000 | 
SYMSM~SUPR = 00004000 
SYMSM~WEAK = 00000002 | 
SYMSM_XCRF = 00001000 
SYMSV—~ABS = 00000004 | 
SYMSV~ASN = 00000008 
SYMSV~CRFO = 00000000 | 
SYM$V~DEBUG = 00000005 | 
SV~DEF = 00000000 | 
SYMSV~DELMAC = 00000009 | 
SVEPT = 00000009 | 
SYMSV~EXTRN = 00000003 
SYMSV~GLOBL = 00000002 | 
SYMSV~LOCAL = 00000006 | 
SYMSV~ODBG = 0000000A | 
SYMSV REF = 00000007 
SYMSV~RELPSECT = 00000008 | 
SYMSV~SUPR = 0000000E 
SYMSV "WEAK = 00000001 
SYMSV~XCRF = 0000000C 
SYMSW~FLAG 00000009 | 
SYSSCONNECT teeeeere GX 05 | 
SYSSCREATE teeeeeee GX 05 
SYSSPARSE teeeeree GX 05 
UPDATE 000000A9 R 04 
UPDATE_LIST 00000000 R 03 
x1 = 00000400 | 
X2 = 0000000F | 
¢ eee een en sw cane ce + 
! Psect synopsis ! | 
PSECT name Allocation PSECT No. Attributes | 
ABS 00000000 ¢ 0.) 00 ¢ 0.) NOPIC uUSR CO S LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
» BLANK . 90000000 ¢ 0.) O1¢ J.) NOPIC USR CON REL LCL NOSHR EXE RD WRT _NOVEC BYTE | 
SABSS 0000017; ( 375.) 0¢ ( “ ) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSRW_DATA 0000000c ¢ 12.) 0 ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE WRT NOVEC BYTE 
MACSRO-DATA 00000087 ( 183.) 04 ( 4.) NOPIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
MAC$RO_CODE_P35 00000A13  ( 2579.) 05 ¢ 5.) NOPIC USR REL GBL NOSHR EXE RD NOWRT NOVEC LONG 


a? } 


MACSGETCMD 


Sats GET COMMAND MODULE 
VAX-11 Macro Run Statistics 


16-SEP-1984 02:17: AX/VMS Macro V04-00 Page 36 
S-$EP-1984 01:48:05 EMACROSSRESGETEMD.MAR; 1 19), 


pose nw ocew esos Sasa nama a aa + 


; Performance indicators ! 
Son aec ano oceans cee a ee me ae 


Phase Page faults CPU Time 


Elapsed Time 


Initialization | 6 90:00:00.0 90:00 :00.60 
— eee. $36 -00:00:07:20  00;00;99:35 
Symbol table sort 768 88 8:2 3 8 
ass 00:02. 2:00:10. 

Symbol table output 46 0; 8:9 60 §:09;00:.35 
Psect synopsis output § 00:00:00. 00:00:00.63 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 822 00:00:11.67 00:00:51.74 


| 

| 

| 
| 
| 

} 

| 

The working set_Limit was 1950 pages. 

69738 bytes (137 pages) of virtual memory were used to buffer the intermediate code. | 

There were 60 pages of symbol table space allocated to hold 1005 non-local and 62 local symbols. 

1408 source Lines were read in Pass 1, comes = object records in Pass 2. | 
| 
| 
| 


18 pages of virtual memory were used to define macros. 


+ 
! Macro Library statistics : 
ecw eee eam ese esc eee ew em eoce 


Macro Library name Macros defined 


.$255$0UA28: CSYS.OBJJLIB.MLB; 1 0 
_8255$DUA28: CMACRO.OBJ JMACRO.MLB; 1 4 
$255$DUA28:CSYSLIBISTARLET.MLB;2 12 
TOTALS (all Libraries) 16 
1004 GETS were required to define 16 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:GETCMD/OBJ=OBJ$:GETCMD MSRC$:GETCMD/UPDATE=(ENHS$:GETCMD) +LIB$:MACRO/LIB+EXECML$/LIB 
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